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The purpose of this thesis is to provide an inventor}' database management 
system for a ROK Army infantry division. 

Since 1973, the ROK Army has significantly improved its capability in logistics 
management by using computer systems. However, the operational level of command 
(the division) has some difliculties in meeting higher command requirements because of 
the unavailability computer hardware and software. As of last year, the computer 
hardware was installed at the division level. User friendly software development has 
become another requirement for effective use of this computer hardware. To help meet 
this objective, this thesis provides a database management system for the manager who 
works at the division logistics section, and for the Quartermaster battalion which is the 
major unit to handle material within the division. 

To meet the objective, the author of this thesis concentrated on writing user 
friendly interface programs within the current logistics management system. 

By applying the proposed system, the Army can improve one of its logistics 
objective, ie automatic data processing. This can contribute to the logistics 
management system implementation by allowing the division to generate more accurate 
reports in less time, and to improve inventory management by shortening the 
adntinistrative process. 
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I. INTRODUCTION 



A. INTRODUCTION 

This thesis proposes an inventor}' control database management system for use at 
the ROK Army division. 

Supply functions are critical in achievement of economic operations of armed 
forces, and the management of defense resouces. Republic of Korea (ROK) Army 
logisticians have developed better ways to build support process. One improvement is 
the recent computerization of Planning-Programming-Budgeting-E.xecuting-Evaluating- 
System (PPBEES)* at high level command (above division). 

However, implementation of PPBEES below the division level requires a great 
deal of manual paperwork, and much overtime for lower level managers. 

Fortunately, as of last year, the Army divisions have acquired computer 
hardware. Still, some usage difficulties remaine because of shortages of the computer- 
related personnel. Thus the development of well structured, user friendly computer 
systems is urgently needed. 

This thesis will introduce a logistics database system which will reduce the 
amount of paperwork, decrease order processing response time and generate statistics 
which are now too cumbersome to compute. The system must be well structured and 
user friendly for easy implementation by novice users. 

Therefore this thesis will deal with the application of computer based routine 
transactions, generation of reports, and analysis of transactions for the ROK Army 
division logistics management section. 

The software developed for this thesis is microcomputer based because of price 
and availability to the Korea Army, especially at the division level and below. The 
software performs the supply distribution function, which is the most costly and labor 
consuming phase at the operational level. 

It handles authorized storage list (ASL) as well as property items, to be defined 
at chapter II. The fixed order quantity with probabilistic demand model will be 
applied for inventory control. 

* PPBEES is a newly developed system for the national resource management in 
Korea. The objective is to accomplish the economic management of the Army by 
evaluation of managers with budget expended and the designated material readiness 
condition. 
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B. THESIS ORGANIZATION 

The thesis is divided into the following sections; As the background of the thesis, 
the second chapter covers the current ROK Army logistics structure, supply functions, 
and current computers in the Korean .Army. 

The third chapter describes the structure and the capability of the proposed 
system and its benefits. 

Future research needs will be stated in the concluding chapter. Appendices 
include statistical considerations for inventory control measures in .Appendix .A. data 
structure of the proposed system in Appendix B, the proposed system structure in 
■Appendix C. The user's manual is provided in Appendix D, and program listings and 
menu screen formats are in .Appendix E and F. 
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II. ARMY LOGISTICS STRUCTURE AND ADPS IN THE KOREA ARMY 



A. ARMY LOGISTICS STRUCTURE 

1. Overview 

The Korea Army is the largest of the three armed forces and is responsible for 
providing general-purpose forces to meet any threat to the Korean national security. In 
order for the Army to carry out its mission, it has to insure an uninterrupted supply of 
weapons, equipment, supplies and other items to the combat forces. 

The Army logistic unit was established to enhance national security by 
providing a reliable and supportable supply of equipment and other necessarv' items to 
the various army units. 

To achieve its objective, the logistic unit has adopted the following principals; 

• Logistics intelligence’. Commander must have accurate and timely logistics 
information in order to provide efTective logistics support. 

• Objective’, Logistics endeavors must be directed toward a clear and attainable 
objective. 

• Generative logistics’, The professional application of initiative, knowledge, and 
ingenuity, and innovative e.xploration of technical and scientific advances are 
fundamental to the generation of logistics systems improvements. 

• Interdependence; Logistics system efficiency requires integration with other 
functions of the system. 

• Simplicity; Simplicity is essential at all levels of the logistics system. 

• Timeliness; Logistics support must be provided in the right quantity at the 
proper time and place for accomplishment of the mission. 

• Impetus; The impetus of logistics support is forward to support the combat 
mission. 

• Cost-effectiveness; Efficient management of resources is essential. 

• Security; Security must be maintained to preserve resources and ensure 
sustained combat capability (Ref. 1: p. 34j 

2. The Army Logistics Unit Organization 

The Army logistics unit is organized into three levels, each responsible for 
certain functions. The next two sections will outline the organizational structure and 
the functions of the logistics units. 
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a. Organizational Structure 

The organizational structure is divided into three levels. The top level is 
the wholesale echelon which includes depots, maintenance points, plants and factories 
associated with special army activities controlled by the Army headquarters. The 
intermediate echelon, i.e. retail sale echelon, is the next level and serves as an interface 
between the top level and the direct support and use echelon. It is responsible for 
providing general support function. The third and final level is the direct support and 
user echelon which includes field units and provides direct support functions to the 
various units in the field. 

b. Support Functions 

Logistics Units perform the following functions 

• Supply; which includes procurement, distribution, maintenance while in storage, 
and salvage of all commodities necessary to equip, maintain and operate the 
armed forces. 

• Maintenance; which focuses on repair and restoration of fielded weapons and 
equipment systems. Maintenance is classified into three level, i.e. unit, field and 
depot. 

• Transportation of troops and supplies. 

• Services; including food stores, clothes stores, laundry', grave services, fire 
fighting, etc. 

• Facilities; including real properties such as depot, maintenance factories, and 
barracks, etc. 

3. Management Issues 

Four managerial issues were identified by the Korean Army Logistics 
Command as critical to the performance and execution of the logistics tasks. These 
elements are; 

• Highly reliable communications betw'een the logistics units. 

• Retention of sufficient defense resources. 

• High speed movement of combat support supplies. 

• Utilization of automatic data processing systems in order to effectively manage 
the process. [Ref 2: p. 636] 

This thesis is an effort to support the four elements, i.e. the use of data 
processing in developing a system to improve the retention of sufficient defense 
resources; to reduce communication complexity and paperwork; to decrease the 
response time for requests; and to allow management more time for important 
decisions. 
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The next sections outline a specific management problem follwed by, in later 
chapters, a proposed implementation of a computerized information system, within the 
constraints of the Korean data processing environment system. 

B. SELECTIVE MANAGEMENT 

1. Oveniew 

Material management involves thousands of individual transactions each year. 
To do their job eflectively, material managers must be able to elTectively use their time, 
concentrate on critical items and avoid the distraction of less critical details. 

In reality, it is difficult to achieve this without the following prerequisites; 

• A classification system to identify critical items. 

• Well established and structured procedures to deal with those items that are 
considered less critical. 

• A computer system which assists managers in carrying out the less critical 
activities and which can identify changes that may effect an activity 
classification. 

The Logistics unit has adopted a classification system which satisfies the first 
prerequisite above, i.e. inventory control procedures that isolate those items requiring 
precise control from those items that do not. 

2. The ABC Classification system 

This system is based on the fact that only a small percentage of inventory 
items account for most of the total inventory value. Thus considering the cost of 
management time, it is more cost effective to purchase a sufficient supply of low cost, 
low demand items and maintain little control over them. 

Before discussing the classification system, it must be stated that before an 
item is given low priority classification, it is evaluated by the Army to determine how 
critical it is for combat. If it was classified as combat critical, it must be treated like 
high priority item even if its demand classification is still low one. Thus a low priority- 
item has to satisfy two criteria; an item shortage will not disrupt the combat operations 
and its annual demand in terms of must be low. 

The selective management, more commonly known as the ABC system, was 
adopted by the Korean Army to meet these supply function considerations in material 
handling. Each item is given one of three classifications, i.e. A, B or C (see Figure 2.1). 
Class A consists of items whose dollar value of total annual demand typically accounts 
for 50% of the total dollar value of the inventory, while representing only 7% of the 



17 



number of inventory items. The B class consists of 18% with 35% of inventory items. 
The C class consists of items whose annual dollar value accounts for only 15% of the 
total dollar value of the inventory but represents 65% of the inventory items. 




Number of items 



Figure 2.1 ABC Classification. 



The entire inventory is Listed in descending order from the largest value of the 
annual demand to the smallest and break points are between class A and B and 
between class B and C. 

The ABC classification exists to direct attention to those inventory items that 
represent the largest annual e.xpenditures. If inventory levels can be reduced for class 
A items, a significant reduction in inventory investment will result. 

The purpose of classifying items into groups is to establish appropriate levels of control 
over each item. ABC analysis is useful for any type of independent demand system 
{continuous review periodic review, and so fortn). With the periodic system, the ABC 
analysis can be subdivided so high usage items receive a short review and. low usage items 
receive a much longer review." 

[Ref. 3: p.439| 

As previously mentioned the degree of control is classification dependent, thus 
class A items require and are given the greatest attention while the class C items are 
paid the least attention. Class A items are managed using an economic order quantity 
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model, A review of the inventor}’ position would occur each time an item is issued to a 
customer. Class B items could use an economic order quantity (120Q) based 
requisitioning objective. Class C items require no special calculations, since they 
represent a low inventor}' investment. The order quantity nught be a one year supply 
with a annual review of the inventory position. 

The success of the ABC system is dependent on several factors, among them is 
the validity of the assumption that class A items constitute a small percentage, 7°o, of 
the total items and around 50% of the total cost. Figure 2.1 depicts the distribution of 
the cost and quantity for the inventor}’ in the Korean army. 

The system proposed in this thesis applies continuous review on class A and 
some of class B items, which are included in the authorized storage list (ASL). ASL 
will be discussed in section three inventor}' control means. 

C. THE EXISTING SYSTEM 

1. The Planning-Programniing-E.xecuting-Evaluating System (PPBEES) 

The Planning-Programing-Budgeting-E.xecution-Evaluation System (PPBEES) 
is a newly developed system for the national resource management in Korea. It 
evaluates managers based on their budget e.xpenditure and their material readiness 
condition. 

A number of plans were developed to implement this system. For instance 
.Accounting System for Fund, and Fund .Management Comparison and Evaluation 
System. “ they had less success than originally envisioned. It is my opinion that the 
elTectiveness of the system can be increased by widing its implementation to include 
/\rmy divisions and by establishing a vehicle for division managers to easily obtain 
accurate information needed in managing inventor}’. At the present time performance 
and operating statistics must be manually prepared, which is a time consuming process 
normally avioded by managers. The proposed system allows managers to acquire the 
needed information in a timely fashion and to support both planning and internal 
perfomance audits. 

The PPBEES measures performance based on a subset of the supplied items. 
The following sections outline the division supply system and the items included in the 
PPBEES system. 



^These two names are literally translated from Korean. 
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2. Resource flow in the infantry division 

The resources (or fund) flow in the division is divided into two major 
categories, materials and cash. The materials are about 55” b of total value, and are the 
subject of the proposed computer system in this thesis, while the remaining 45% is 
cash. 

The materials issued to the division are divided into three groups resource 
control number (RCN),^ automated supply items, and non monetary valued items, see 
Table I 



TABLE I 

BUDGET RATE OF MATERIALS 



Item 


Contents 


Percent 


Total 


Line item 


PPBEES Materials 


Parts, Gasoline, 
Medical Equipment, 
General Supply 


15 


30 


Automated Issue 
Items 


Food, Clothing. Heatine Fuels, 
Tactical Construction Materials, 
Ammunition, Assemblies. End items 


40 


70 


Non Monetary 
Valued Items ' 


Clothing(OfTicer,NCO) 

Field manual. Technical manual 
Target 


Un- 

known 


Un- 

known 



The RCN grouped material constitutes around 15.3% of the resources, i.e. 
30% of material, and are issued by the Logistics Support Command with RCN. These 
are the only items tracked by the PPBEES system and used in evaluating managers' 
perfromance. 

The remaining materials, 40% of the budget, are issued automatically without 
user's request. We can anticipate that this results in e.xcess stock in some units while 
the other unit run out. The division has no evaluation system for these automated 
issued line items. [Ref. 4: pp. 194- 196] 



^RCN (Resource Control Number) is the numeric symbol which is used for 
accounting, execution of supply activities, that connects the cash budget and material 
supply. 
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The division has only basic manual means for recording material consumption. 
The inventor)’ report card contains only the present amount of stock for each item in 
the organization unit. The division should have a system to record material 
consumption and evaluate support performance. 

In the present PPBEES there are no means to evaluate the ranking of the 
units in a given period, as well as a number of other problems which make an 
automatized system highly desirable. For example; 

• For certain items, the logistics support command sets a ceiling (maximum 

allowance) on the number of units of the item which may be consumed by a 
division each calendar year. The performance of the division with respect to 
this item is judged based upon the fraction of the ma.ximum allowance which is 
actually used during the year. Obviously divisions with larger maximum 

allowances use items more freely , while divisions with smaller maximum 

allowance may suffer from lack of material. This may induce a division 

commander to delay the maintenance of equipment, to continue to use 

substandard material, and to occasionally make inappropriate substitutions. 

• There are too many elements to compare. For each RCN item there are 20 
criteria used in the evaluation. Each division has 20 units and each regiment has 
23 companies. Division managers do not have the required resources to do this 
comparison manually. 

• The system requires too much paperwork. Headquarters must calculate costs by 
equipment and by subordinate units. Both are difficult manual efforts which 
may include significant errors. 

3. Inventory operation and control in divisions 

The supply procedure in divisions is shown in figure 2.2 The principal actions 
between supplier and customers are; requests for issue; turn-ins; and cancellations. 
These actions take place between a unit and a division and between a division and the 
logistics support command. For example when a company sends a "request for issue" 
to a regiment, the regiment passes it to division. The division issues the item if it is on 
hand; if not, a request is sent by division to the logistic support command. The 
logistics support command processes the requisition through their computer system, 
and generates an issue list containing all the items requested by the division. After the 
division receives the list and material, all due-outs to division customers are filed and 
the remaining material is stored pending the next request. All requests for issues from 
lower units are handled daily. The proposed system follows this basic procedure. 

The control measures in these procedures are the authorized storage list 
(ASL), requisition objective (RO), safety level (SL), and order shipping time (OST). 
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A. Supply procedure from division 
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B. Current Transaction record procedure 
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Figxire 2.2 Division Supply Procedure 
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a. Authorized Storage List (ASL) 

Authorized storage list defines all supplies which can be stored by the 
supply unit to meet expected demand. This is based on selective management similar 
to the ABC classification. The ASL considers economic and support performance 
objectives. If support performance was the only consideration, all items will be stored. 
This obviously would be very costly, would increase the difficulty handling the material 
and decrease the maneuverability of the unit. On the other hand if we consider only 
economics the unit performance would be degraded and there would be a serious 
increase in unnessary stock. Therefore the stock should be the minimum required to 
perform the mission. 

To get the minimum required stock, we have to consider measures of 
effectiveness (.MOEs); Let's assume that total cost= fix) and support performance = 
g(x). We have to minimize fix) and maximize g(x), but as x increases both fix) and g(x) 
increase. There is conflict ! So what is usually done is: 

1. Choose a specific minimum value for g(x), ie g(x) must be greater than this 
value (call it "b"). 

2. .Minimize fix) subject to gi b. 

A ranking similar to the ABC system was developed for the demand 
frequency of each item. As shown in Table 2 --(A) , 85% of total demand frequency 
includes only 15% of all items required by the supported unit; even if we increase this 
latter percentage to 50% and reexamine the associated fraction of total demand 
frequency, the increase of demand frequency is only 3-4%. 

This fact suggests that by storing 15-20% of all items it is possible to meet 
85% of the support requirement. This is the basis of ASL, ie satisfying 85% of all 
requisitions. The achieved DFR is the ratio of demand for ASL items to the total 
effective demand. Total effective demand is the demand of all items less cancellations. 

ASL is divided into 6 groups: active items, stand-by and essential items. 
Prescribed Load List (PLL) of Organization Unit, the supported units ASL, direct 
exchange and repair parts for new equipment, and substitution of maintenance. 

• The active items are the items included in 85% of the demand frequency rate. 

• Essential items for any future emergency are decided by the Army Commander. 

• Prescribed load list of organization unit are repair parts and tools intended to 
give worth of support 15 days and must be stored in each organization. 

• When two or more items have functional and physical characteristics that cause 
them to be equivalent in performance, reliability and maintainability, only one 
of the items will be on the ASL 
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TABLE 2 



A). DEMAND FREQUENCY RATE 

Demand frequency rate (%) 




B). AUTHORIZED STORAGE LIST 



ASL Items 


Non ASL Items 


Total Annual effective demand 


Immediate issue 


Delayed issue 



g5 0/^ -►! 



Demand flexibility rate = (ASL -r Total effective demand) x 100 



C). ANNUAL DEMAND FREQUENCY FOR ASL 



Chemical Items 


6times 


Quatermaster Items 


Gtimes 


Engineer Items 


3times 


Communication Items 


3times 


Ordnance Items 


Gtimes 


Transportation Items 


Gtimes 


Medical items 


Gtimes 
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When stock changes or when catalog data are updated, all additions or 
deletions are made in the ASL. Other changes include inter-changability and 
substitution between items. The deputy chief of staff logistics (DCoSLOG) in the 
Army HQ reviews the ASL semiannually for potential range reductions. Inclusion on 
the ASL depends on the minimum number of times an item is ordered as shown in 
Table 2-C. 

b. Requisition Objective {RO) 

Each ASL item must have an RO recorded in the stock accounting record. 
The RO is the ma.ximum quantity of the item authorized to be on hand and on order 
at any time. Retention of assets above the RO is authorized under certain conditions. 
The RO computations are made in a days of supply (DOSs) mode or economic order 
quantity (EOQ) mode. 

(1) Days of Supply {DOS). The DOS mode will be used by nonautomated 
accounts when computing stock for items that are critically short, seasonal, highly 
perishable, or have a shelf life of less than 3 years. A DOS RO will be computed at 
least semiannually, or when the balance on hand is equal to or less than the reorder 
point (ROP), or when the balance on hand equals zero. 

The DOS RO is the sum of the operating level (OL), safety level (SL), 
and order shipping time (OST) in days; multiplied by the quantity demanded during the 
control period (one year for division), divided by the number of days in the control 
period. The ROP is the sum of the SL and OST in days, multiplied by the quantity 
demanded during the control period divided by the numbers of days in the control 
period. 

(2) Economic order quantity {EOQ). The EOQ RO is the sum of the EOQ 
and the ROP quantities which will minimize the total variable cost of stock for a 
specified performance goal. The performance goal is based on how essential the item 
is. The amount of stock may be constrained by mobility and fiscal limitations. The 
total variable cost consists of order cost (replenishment and wash actions), change cost 
(cost to add and delete an item), cost to maintain an item in stock, storage holding 
cost, and the implied shortage cost. The implied shortage cost is not a measurable cost 
(to calculate this cost refer to the Appendi.x A statistical consideration.) 

The implied shortage cost will be used in automated systems as a 
variable to adjust a stock level to meet a specified performance goal. Stock criteria will 
be variable when the EOQ is used by automated systems. The EOQ mode will be used 
by automated accounts (higher than division level so far). 
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c. Order shipping time {OST) 

OST is used computing both EOQ and DOS. It is the average number of 
days that elapse between the document date of the requisition and the date the receipt 
is posted to the stock accounting record. 

When OST is not available, as in the case of the manual system used in 
DOS, it has to be computed. The computation is based on the average OST of the six 
most recent replenishment receipts and rounded to the next higher number of whole 
days. In computing OST, requisitions are excluded if they have long delays from 
wholesale backorder, unusual circumstances, or lack of funds. A cumbersome manual 
process! 

OST is updated each time the RO is recomputed. Because of the fact that 
most of the system is manual, updates to the OST is done annually. 

4. Current documentation and report forms 

The documents maintained by division logistics departments are classified by 
contents and include; 

• Inventor}' status for each item 

• Evaluation worksheet for the PPBEES 

• Documents for TA-VIMS"^ 

• The record of consumable item consumption 

These report mainly focus on the historic data and are difficult to use in 
computing statistics and information needed by managers. For example the current 
documentation is inadequate to use in material planning. Although it shows the 
current stock level of items, funds, etc. This data can not be used by a computer and is 
difficult to retrieve, sort or manually manipulate to calculate the needed information. 

The format of the recording form is inconvenient. The documents or forms 
should be able to prove the transaction history and also be user friendly. In the 
current documents, transactions are recorded by date sequence, when any cancellation 
of requisition occurs, it is very difficult to locate and correct all previous records. 
Records written in pencil are hard to use as vouchers. 



■*TAMMS is a abbreviation of The Army Maintenance Management System 
which contains the historic records of maintenance, and operation of all equipment. 
This data will be used in requisitioning of the new equipment requisition. 
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D. CURRENT USE OF COMPUTERS FOR LOGISTICS IN ROK ARMY 
1. Overview 

In March, 1967 the first computer was introduced in Korea to assist with a 
census of the Korean population for the Economic Planning Board. The Korean Army 
installed its first computer system in the Army HQ for the management of military 
personnel in 1972. The next year another computer was installed at the Logistics 
Command to assist with logistics management. Subsequently several computer centers 
were established. All these computer centers are directly controlled by the staff of the 
Army HQ. [Ref 5: p. 14] 




Main frame 



Main frame 



Main frame 



Mini computer 



Figure 2.3 Army Logistics Computer System. 

In the late of 70's, an integrated software development center was established 
at the Central Automatic Data Processing Center (ADPC) to develop software for the 
mainframe computer used by the logistics command and Army HQ. The second 
center, the Logistics Management Information Center, was established to support .MIS 
development activities in the G-4 of the Army. It endeavors to improve MIS 
capability and has gained the attention of high level managers. 

The hardware installed in the various computer centers is different. IBM 370, 
and UNIVAC 90/30 and 1100 series machines are very common. These are batch 
system and are not connected with each other. The application software, which is run 
periodically by users, was developed using old technology', i.e. flat file system. 
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The file system and the fact that the computers are not connected results in a 
high degree of redundancy. Each computer center, even those under the control of the 
Department of Computers at Army HQ. has several files containing the same data 
elements. For e.xample the Army personnel system, payroll system, and medical system 
all contain common data elements which are updated independently, a potential source 
of data integrity. 

A second problem which has afi'ected the development of the data processing 
field in the army is a shortage of qualified personal. 

Recently, high level managers have recognized the need for the 
standardization of hardware and unification of application software. This has resulted 
in an ongoing efibrt to bring the data processing systems in Korea to the leading edge 
of technology. As a result, a number of mini- and microcomputers have been installed 
at the division level. 

2. ADP Support to logistics 

It is necessary for the commanders to have adequate forecasting capability for 
the effective command and control his unit. The use of .ADP systems has significantly 
increased the commander's visibility and has had an effect on logistics operations. The 
Automatic Data Processing Center (,ADPC) within the logistics structure has provided 
significant support. The ADPC, dedicated to logistics operations, supports its own 
internal functions such as stock control within the responsible area and routine jobs 
such as reports generation for higher commands. Additionally the center provides to 
other departments the logistics information. In the division level, reports are manually 
generated. 

One concern of this thesis is an important report generating function of 
ADPC; the inventory' status report. This report is presently created by division G-4 for 
logistics support command mannually. 

This reporting system will be designed in this thesis to provide up-to-date 
accurate inventory status data for major items pertaining to each division. In addition 
to the inventory’ status report there are many other reports which are needed to control 
the inventory. These reports provide information to the division commander and higher 
logistics support units so that readiness can be evaluated. These reports also indicate 
the shortage and overage of material and, when integrated at higher levels, allow the 
command to determine new procurement needs, prepare budgets, redistribute assets 
and take disposal actions. 
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E. SUMMARY 



This chapter presented a description of the existing inventory’ control system and 
data processing capabilities. Several issues, stated in this chapter, were paramount in 
the decision to develop the proposed inventory control system. For example; 

• The existing system has limited capability in the development of elTective 
material management. 

• The PPBEES implementation will benefit from a computerized .Management 
Information System. 

• The documentation in the present system is cumbersome and inadequate for 
managers. 

A database management system can be used to resolve these problems. A well 
developed one will provide the information needed, maintain records of transactions 
and exchange the information with other computers. 

This system has to be user friendly and reduce to an acceptable minimum the 
dependency on the data processing personnel. Its implementation, including 
installation, must be simple and must use the microcomputers available in the various 
units. 

The problem the system resolves is w'ell structured to insure the system's success. 
At the same time the system design has a degree of flexibility to expand at a later 
point. The existing system is labour intensive and the proposed system will sa\e 
managers precious time for more important activities. 

The system described in this thesis was designed with these facts in niind. As such 
it resolves a problem by using microcomputers, and a user friendly interface, and 
allows for electronic communication of data. 



29 



III. RELATIONAL DATABASE MODELS 



A. INTRODUCTION 

The proposed system is a relational database management system which uses 
dBASEIllplus. In this chapter, a brief description of relational database models is 
given. 

B. WHAT IS DATABASE? 

A Database is basically a computerized record keeping system, that is, a system 
whose overall purpose is to record and maintain information for future retrieval. D.R. 
Howe, the author of Data .Analysis for Database Design, defmed a database as "a 
collection of non-redundanl data shareable between different application system". He 
extended his definition by saying that 'non-redundant means unnecessarily duplicated 
data adds no new information , sharing data as 'a multiple usages in multiple 
applications' . (Ref. 6: P. 1] 

A database should be structured so as to provide a foundation for future 
application development. It can be manipulated into information for management 
purpose. 

A database model is an abstract representation of data. It defines the way that 
data items are organized and related. There are two major classes of database 
representation, the physical and logical models. The physical model represents the 
actual structure of the data in the computer. The logical model represents how a user 
perceives the data organization. For e.\ample, in an inventory' system, we may have 
the following case; 

A number of parts are located in a number of warehouses, shown on Figure &str-A. 

The physical structure may consists of the following files 

• .A part file which consists of the part number and all the attributes which 
specifically describe this part, such as part name, price, weight, and the vendor 
supplying this part (assuming that a part is supplied by one vendor only), etc. 

• A warehouse file which consists of a list of all warehouses and those attributes 
unique to each warehouse. 

• A relationship file which consists of the attributes that describe the relationship 
between parts and warehouses, e.g. number of units of part 1234 (QUANTITY) 
in warehouse A- 12 and location of the part in this warehouse (bin 27AC) 
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B. Manager's View 



C. Worker's View 



W_NO 


P_NO 


VENDR 


A-12 


1234 


GM 



P_NO 


W_NO 


QUANTITY 


1234 


B-11 


120 



A. Relationship 




Parts file Warehouse file 



Figure 3.1 View of database. 

The logical structure is a user view, and as such it is dependent on the user. For a 
warehouse manager, the logical view may be similar to the one shown in Figure 3.1-B, 
ie. the warehouse data and the parts available in that warehouse and the vendor of 
each part. 

A second user view may be that of a worker on a machine. In this case the 
person is interested in seeing the part data and attributes as well as the warehouses 
where this part is. He is not interested in knowing the vendor or the location of the 
part in a warehouse. 

This type of file structure facilitates adding new views based on user requirements 
without changing the physical structure of the files and reduce the number of 
redundant elements and the update effort. Programs share the data instead of having 
the same data duplicated for each program, creating an update nightmare. 

The database management system is responsible for managing the physical 
storage of data. Thus if a data element physical characteristic changes, no 
programming changes are required since each program requests a data element by 
name and is, to a great extent, independent of the element's physical characteristics. 
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C RELATIONAL DATABASE MODEL 



The database model discussed in the previous example is called the Relational 
Model. A basic quality of the relational model is its simplicity. 

Ii was introduced by Dr. E. F. Codd in a seminar paper in I9'^0. The paper have been 
written concerning, ''the most appropriate way to express relations, lie stressed the 
independence of the relational representation from physical computer implementation such 
as ordering on physical devices, indexing, and using physical access paths. Although the 
relational "model Jias many desirable characteristics, it was, until recently, a subject of 
theoretical interest only. In the last few years commercially viable dataha'se management 
system (DBMS) became available and' in the early I9S0s, several important uBMS 
products were ^ introduced. SOI. DS (vended by ' IB. M) and ORACLE (vended by 
Relational software IncorpnraTed) are two examples. Since these announcement, tKe 
relational model has come to be of greater practical significance. 

[Ref. 7: p. 242] 

The following definitions introduce a number of terms that will be used in 
describing the proposed material control model. 

1. Relation 

A relation is a table of data (a file) and consists of rows (tuples) and columns 
(attributes). The data table provides a simple data structure. 



Attribute Attribute 

i i 



Tuple 

Tuple 



Records 



SN 


NM 

-- 

— 


UNIT 


ONHAND 


UNITCOST 


CLASS 1 


1111-11-111-1111 


Test iteml 


Ea 


120 


12.90 


1 


1222-22-222-2222 


Test item2 


Ea 


90 


15.00 


1 


1333-33-333-3333 


Test item3 


Ea 


100 


25.00 


1 




Test item4 


Ea 


190 




4 




- 










9999-99-999-9999 


Test iten?4 


Ea 


9999 


100 


9 



Figure 3.2 Relation of property. 

Figure 3.2 shows an example of a table (or relation); the table contains six columns 
(each represents an attribute) and five rows (tuple, each represents a specific record). 
The intersection of each row and column in the table contains a value. For instance, 
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Test iteml' is an attribute value of the attribute type "NM" for the record belonging to 
stock number 1 H 1-1 1-1 1 1-1 1 1 1. 

There are a number of constraints that must be observed when building tables; 

• The ordering of rows is not important because the rows can be interchanged 
without alTecting the inl'ormation content of the table. 

• The ordering of columns is not important either, for the same reason. 

• Each row and column intersection contains a single attribute value. .Multiple 
values are not allowed. 

• Each row in a table must be distinct: no two rows can have the same attribute 
values throughout. (The significance of this rule is that a row can always be 
uniquely identified by quoting an appropriate combination of attribute values.) 

An attribute value may be null, but a null value does not mean that the 
attribute is blank, e.g. the unit cost of test item4 may be entered in the table after the 
record has been created. 

Each attribute has a domain, a set of values that the attribute can have. For 
example, the domain of unit cost is a positive eight-digit number with 2 decimal points. 

2. Keys 

We want to be able to identify each tuple (record) in a relation by the value of 
at least one of its attributes. In Figure 3.2, the stock number (SN) is a unique 
identifier since no other row may have the same stock number. 

If there is no one unique attribute, then a combination of more than one may 
have to be used. The table data structure shown in Appendix C includes examples of 
keys which have more than one attribute. 

3. Record relationships 

The essence of a database is the representation of record relationships. The 
relationships can be specified in a variety of ways. 

The relationships are identified intuitively. The designer considers potential 
relationship among records that have been defined. A relationships may exist among 
three or four or more records. For example with records of the proposed system, 
MASTER records have many property records, while one PROPERTY record has only 
one ASL record. Many STOCK-OL'T records have many .VIASTER records. 

4. Database Management System 

A database management system (DB.MS) is a software system which performs 
the functions of defining, creating, revising, and controlling the database. It provides 
facilities for retrieving data, generating reports, revising data definitions, updating data, 
and building applications. 
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Figure 3.3 Record relationship. 

Several relational DB.VIS are available. The one used in developing this 
inventory control system is Dbase III Plus. The version used is the Microcomputer 
version. However, an extension which includes SQL, a facility which allows sharing of 
data with mainframe computers is under development and will be introduced in the 
very near future. 

DbaselllPlus is the market leader among DBMSs in the United States. 
Several supporting products have been introduced such as compilers to increase 
execution speed and application generators to optimize the code execution. It has 
network capabilities which allow sharing of data, and security procedures not available 
in the single user version. It also has its own prograrruning language, which facilitates 
the development of user friendly interfaces. 
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IV. THE PROPOSED SYSTEM 



A. OVERVIEW 

This chapter describes the existing manual procedures and the proposed 
computerized system. 

B. MANUAL SYSTEM 

Presently, a logistics unit in a division receives a request for issue of an item, an 
item turn-in. or cancellation of a requested item from lower level organizations. The 
same set of requests occur between the division and the LSC. Transactions are 
recorded in property books and this generates a second type of process, that is the 
editing of erroneous entries. 

Transactions are aggregated to produce management reports, which are used 
during the analysis for the next planning cycle and for evaluating the performance of 
managers. 

Two sets of books exist, the first book is the transaction log in which records of 
each request are kept. Each entry includes the transaction number, date, item ordered 
and quantity. The second set is the property book which has a page for each stock 
number and the on-hand quantity of this item. When a request is satisfied, both sets of 
books are updated. 

C. THE PROPOSED SYSTEM STRUCTURE 

As requests arrive at the division, either from outside entities or internal 
personnel, the end user enters the request data using a screen identical in its format to 
the request form. Entries are edited by the system for errors using hard coded criteria, 
and stored. 

The system consists of several files and modules. The Batch and .Master files are 
similar in structure to the Transactions Record Book, while the Property File and the 
ASL file are similar to the Property Book. An item is included in one of these latter 
files based on its classification and whether the item is PPBEES trackable or not. The 
Stock Out file combines elements from both books and the Customer file contains 
customer's attributes such as address, customer ID, zipcode, etc. 
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Modules in the system perform several functions. For example, when transactions 
are processed the system updates the quantity on hand, creates a transaction record, 
the completion date of a transaction is generated and the transaction record is moved 
to the MASTER file. The date field is used for performance measurement purposes. 
For example the date field will help answer questions about turn around time for a 
specific item. 

If the stock on hand ,;iter satisfying the current demand is less than the reorder 
point, an attribute for each item, the stock onhand field, is updated to reflect the 
current onhand amount and a request for issue to the supplier will be generated 
automatically. When the amount is less than zero, a stock-out record is added to the 
STOCK-OLT file, and the system sends a delivery delay warning to the user. This 
process is illustrated in a Row chart in Appendix C. 

One issue list per customer is generated, regardless of the number of items 
requested in one day. under one receipt voucher number. The same is true for a request 
for issue to ESC. Figure 4.1 shows examples of the issue list and request for issue. 
The processing of the other type of transactions follows almost the same procedure. 

When the supplier issues stock to the division, the stock is examined to determine 
whether it is new, i.e. initial supply, and if it is, the program will ask the user to enter it 
in the property file, and in the .ASL file if necessary. 

The fact that the system does not require more than one entr\’ per request and 
that it interrogates all of the appropriate files, without end user intervention, drastically 
reduces the amount of end user time per request. 

The system is fle.xible and can accommodate a number of potential user requests. 
For example. If a user wants to extend the output information to the type of 
operation, he can add one attribute to Master file for the operation type, the query 
program can easily support such requests. 

Figure 4.2 depicts the data Row in the proposed system and Figure 4.3 shows the 
transaction data Row diagram. 

D. THE PROPOSED SYSTEM FUNCTIONS 

1. Transaction tracking 

The main purpose of the transaction tracking is to record each customer's 
request for inventory planning and management purposes. The proposed system 
generates reports on the status of each customer's or stock item. Transaction records 
are saved in the Master File for analysis of trends. The ASL file provides criteria such 
as Reorder point, requisition objective, and safety level. 
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ISSUE LIST 



Page 

Date ; 11/13/87 



Prom : The 150 Infanry Division 
To t The 150 div 1501 regiment 







Vocher No : 1500QM-0029- 


7317 




No Stock number Description 


Onhand 


Unit Quant'y 


Price 


Total 


1 1111-11-111-1111 Test iteml 

2 5555-55-555-5555 Test item5 


SORRY! Delay delivery 

7976 Roll 300 




3 


900 


3 8886-88-888-8688 Test item8 


SORRY! Delay delivery 












Grand 


Total : 


$ 


900 


Mat rial Management NCO ; 




Date : 


/ 


/ 




Material Management Officer : 




Date : 


/ 


/ 




REQUEST FOR ISSUE 

To : The 3333 Logistics Support Command 
Prom : The 150 Infantry Division 

Request 


Date : 

No : 1500QM-0014-7317 


Page 1 
; 11/13/87 


No Stock number Description 

1 1111-11-111-1111 Test iteml 

2 8888-88-888-8888 Test item8 


Unit 

Ea 

Ea 


Quantity 

105 

20 


Price 

10 

22 


Total 

1050 

440 








Grand Total 


:$ 






Matrial Management NCO : 




Date : 


/ 


/ 




Material Management Officer : 




Date : 


/ 


/ 





Figure 4. 1 Examples of transaction output. 

For management purposes, a manager may ask specific questions on a 
transaction record, a customer's transaction history, or the status of a certain stock 
item. However, The system stock item queries are limited to the status of the item. An 
extension to determine the location of an item may be added with minor changes to a 
database file. This programming effort may be done by a knowledgeable user. 

2. Report Generation 

One of the most important functions of the proposed system is to generate 
reports required by the logistics support command and the internal division manager. 
The system has a number of hard coded repons and a simple ad hoc reporting facility. 
The hard coded reports are described in Appendix C. 



37 





Figure 4.3 Transaction data flow diagram 
38 



Reports may be classified, into two groups, internal use and external reports. 
Internal use reports are those used for performance analysis. The external reports are 
the transaction output, e.g. the issue list resulted from request for issue of the 
organizational unit, request for issue, request for tum-in are for Logistics Support 
Command. 

Figure 4.4 shows the data flow for report generation. More reports may be 
added to the system, if requested, this will bring the system closer to a complete 
inventory planning management information system. 




transaction history data 



Figure 4.4 Report data flow diagram. 



3. Limited analysis 

The proposed system uses the fixed order size probabilistic model for 
determination of reorder point, safety level, and economic order quantity. 

The assumptions involved in the proposed system are; 

• The demand is continuous and normally distributed, 

• Annual demand can be obtained through the transaction history record, 

• There are no seasonal effects on demand, 

• The lead time is constant. 
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• Service level for each item is known or determined by managers, 

• The stock-out cost is known. 

Other statistical consideration are presented in appendix A. 

The annual demand is determined by summing the effective demand (total 
demand — canceled demand) and the monthly demand is calculated by dividing annual 
demand by 12. The standard deviation of demand is calculated from the transaction 
record histor>’. The lead time is obtained by computing the arithmetic average of the 
order shipping times from historical data for a specified period of time. 

After all parameters are determined, the reorder point, safety level, and 
requisition objective are calculated and updated. 



IMrORMATION for ANALYSIS 



You selected stock number 
(Test items, Unit:Ea, 


; 8883-88-888-8888 
Class:8 ) 


Purchasing price(P) 


: 22 S/Ea 


Annual Demand (R) 


: 100 Ea/year 


Lead time COST) in Month 


: 0 Month(s) 


Ordering cost(C) 
Holding cost unit per year 
(Select one of these) 

Stockout cost (If Known) 
Service Level in year 


0.00 S/order 
; 0.00 % 

; 0.00 S/unit Select? N 

: 0.0000 % Select? Y 



[PRESENT] Reorder point :15 


Safety Level 


:10 


Requisition objective : 50 


Lead Time : 


14 



Is this record ri< 3 ht ? ( Y/N) : X 



Figure 4.5 The output from analysis process. 



4. Use friendly interface 

One of the purposes of this thesis is to design a user friendly computer 
program. Novice computer users can use it without special training. The proposed 
system provides a user friendly interface by minimizing the possibility of errors. The 
user does not have to know about the disk operating system. And a manager who is 
not familiar with a division inventory system can use it, since most of the transaction 
processes proceed automatically. 
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E. SYSTEM LIMITATIONS 



The proposed system is not a perfect system. An objective of this system is to 
improve logistics management capability. This is a diflicult task and requires many 
additional software applications. For e.xample, better system would include accounting 
and inventory tracking functions. The proposed system addresses just on main logistics 
function. Constructive comments and remarks are welcomed and solicited. 

1. Demand forecasting 

Demand forecasting forms the basis of managerial decisions and if it is 
accurate, managers don't have to worry about safety level or lead times. 

The proposed system does not forecast demand. The annual demand 
quantities are based on one year historical records or as specified period. .Managers 
can retrieve historical demand data in various forms, by item, period, unit, or 
combinations, and use it in forecasting. 

An extension to the software is needed to provide demand frequency 
information by unit by type e.g. training, exercise, routine job, or special purpose. 

2. Statistical analysis of transactions 

Statistcal analysis was not fully covered in this system. Only two models were 
presented for analysis; the known stock-out cost model and service level model under 
normally distributed demand, were presented. There are a number of other models for 
inventoiy management. The system should be enhanced by adding various models and 
allowing organizations to choose the model appropriate for their needs. 

3. ASL request 

As was mentioned in chapter II, the division commander can ask for 
additional items for the ASL for his division. The basis of for this request is also 
described Table 2 in chapter II. The query menu in the softw'are written for this thesis 
allows the division logistics manager to quickly determine if a particular item will 
qualify for stockage in the ASL based upon its demand history. The software for this 
thesis does not, however, include the facility to automatically generate a request to add 
a particular item to the division ASL. 

4. Fund Accounting 

The accounting of the fund (of RC\) is important to managers, so the 
proposed system is partially prepared to do this function. The resource control number 
(RCX: an attribute of an item) is based on the current PPBEES. While the proposed 
system, includes all the needed elements, it must be extended to perform accounting 
functions. 
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F. ADVANTAGES OF THE SYSTEM 

By applying the proposed system 

1. The Army can improve one of its logistics objectives: automatic data 
processing. 

The system contributes to the PPBEES implementation by generating timely 
and accurate reports for various supply units. 

It allows for more efEective utilization of personnel time by shortening the 
administrative process. 

4. More accurate records can be maintained. 

5. The system can be e.xtended, with minimal effort, to include fund accounting 
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V. CONCLUSIONS 



A. CONCLUSIONS 

The proposed system is a user friendly, menu-driven, modularly designed 
database management system focusing on the supply distribution function of the ROK 
Army division. It will reduce investment in personnel, and material and generate 
timely and accurate reports serving division managers. The s>stem may be operated by 
novice as well as e.xperienced personnel. 

To develop this system, the ROK Army logistics structure, current logistical 
management methods, and problems were described in chapter 11. The same chapter 
describes current computer usages in the ROK Army. 

The third chapter includes the structure of the database, its major capabilities, 
and benefits. The chapter presents the fundamentals of databases and the database 
management system used in developing the system, i.e. dBASElIl PLUS. 

The fourth chapter describes the proposed system: what it can or can't do for the 
logistics control management in the ROK Army division. The chapter also adresses 
the benefits of the implementation of the proposed system. 

Through the development of this system, the author achieved the primary goal of 
this study by combining the knowledge of the ROK Army logistics management, 
relational database, design of the database management system, and programming 
techniques. The implementation of the DB.VIS in ROK Army division should 
contribute significantly to the supply effort. 

By using this program, the ROK Army division can reduce, the current volume of 
paperwork and overtime devoted to routine tasks. The proposed system can save 
personnel and material resources, thereby freeing these resources to other vital 
objectives such as enhancement of the combat power. 



B. FURTHER STUDY 

In this thesis, the author deals only with the distribution function from among 
many other logistics functions. A more comprehensive system w'ould include 
accounting, maintenance tracking, and provisions for analyzing transacton records 
system. 
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DifTerent inventor}' control models would be applied to enhance the database 
management system. Only two of the many models available have been implemented 
in this thesis. 

Networking and interconnecting this system with available mainframe systems is 
another issue not addressed in this thesis. A final objective is to tailor this system for 
use in comabat situation. 
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APPENDIX A 

STATISTICAL CONSIDERATION 



The material in this appendix is extracted directly from Tersine 
(Ref. 3: 131-165. Ipp It is given here because the decision of safety level, reorder point in 
the proposed system is based on. 

According to Tersine, when the demand is probabilistic (not deterministic), it is 
necessary to minimize the expected total cost for inventory management. If the 
demand distribution is continuous, the minimum expected total cost expression is 
obtained by taking the derivative of the total expected cost with respect to the decision 
variable and then setting it equal to zero. 

If leadtime demand is distributed according to a continous probability 
distribution f(M) then mean leadtime demand is given by; 

M = J^Mf^\l)dM (eqnA.l) 

and the standard deviation of leadtime demand is the square root of the variance 
whicch is given by; 



- M)2 fCVDd.M (eqnA.2) 



Where; 

M = random variable for lead time demand 

f(m) = probability density function of lead time demand 

<y = standard deviation of lead time demand 

M = mean lead time demand 

The probability of a stockout for a given item is simply the probability that the 
demand during the lead time will exceed the reorder point. The stockout probability is 
the first definite integral of the probability density function of demand during the lead 
time from the reorder point to infinity. 

That is; 



P(M > B) = P(s) = ff fl.VDdM (eqn A. 3) 
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Where ; B = Reorder point 

M =• Random variable for leadtime demand 
The expected stockout quantity during the lead time is the second definite integral of 
the probability density function of demand during the lead time from the reorder point 
to infinity. 

That is 



E(M>B) = |^(M-B)fIM)dM (eqn A.4) 

When demand is normally distributed, the reorder point can be obtained from 
following formula; 



B = M+ S = M + Z<t 



(eqn A. 5) 



\VTere 

M = .Vlean lead time demand in units 

S = safety stock in units 

Z = Standard normal deviate corresponding to the desired stockout 
probability 

<7= Standard deviation of lead time demand. 

Knonn stockout cost per stockout event 

The proposed system assumes that demand is normally distributed and lead time 
is constant (that is realistic for many items). It is also assumed that a fixed shortage 
cost is incurred one time only in each reorder cycle which experienced a stockout 
situations. This cost is assumed to be unaffected by the number of units or requisitions 
which are backordered during a reorder cycle. Since the historical distribution of 
demand is available, the safety stock can be determined by selecting a safety level that 
results in the lowest expected cost. It is easy to determine the safety stock using this 
method. The objective is to minimize the sum of the cost of holding the safety stock 
and the cost of the stockouts. The danger of stockout occurs only during the lead 
time. There are R, Q lead times of opportunity for a stockout to occur is obtained by- 
taking the derivative of the expected annual cost of safety stock with respect to the 
reorder point and setting it equal to zero. 

Annual cost of safety stock = (holding cost) + (stockout cost) 
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Tq = SH + GR'Q( J^f(M)d\l) (eqn A.6) 
= H(B - M) + GR P(M>B) Q 



TC^ = expected annual cost of safety stock 
B = S + M = reorder point in units 
S = safety stock inunits 

H = holding or carrying cost per unit per year 

G = backordering cost per outage 

R= average annual demand in units 

Q = lot size or order quantity in units 

f(M)= probability density function of lead time demand 

M = average lead time demand units 

If the derivative of the expected annual cost of safety stock with respect to the 
reorder point is taken and set equal to zero, the following relationship is obtained; 

fIB) = MQ GR (eqn A. 7) 

However for normal distribution the optimum reorder point is not obtained from 
above equation, since the the ordinate f(B) undergoes a change of scale when it is 
transformed to the standard normal distribution. Thus, if we are to find f(B), we must 
find here the standard normal distribution has an ordinate of RB) x (J The standard 
normal deviate Z for the optimum stockout probability can be obtained directly from 
the standard normal table. 

The optimizing safety stock can be obtained from normal database and the 
following formulas; 



Z = (B-W)/«t =(B-(2 X L)),'( <Tp) VTT= S/(<T X ^T) (eqn A.8) 
S = Zff = Z <Tq y/~U (eqn A. 9) 



-vhere 

Z = standard normal deviate 
B = Dxl + S = reorder point in units 
W = D X L = average lead time demand 
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(T = Standard deviation of lead time demand 
L = lead time 
S = safety stock in units 

(Tu = standard deviation of demand for a time period other 
than the lead time. 

Service level is given instead of stockout cost per outage 

Most of the time in the ROK Army stockout costs are very difficult to obtain 
because of its accounting system. Under these circumstance, using set service level is a 
more rational way of determining safety stock. A service level indicates a level of 
ability to meet customer demand from stock. 

The establishment of a service level is a subjective management judgement that is 
based on convenience rather than scientific justification. The choice by management of 
service level implies a cost attributed intuitively or indirectly to stockout. 

E.xample: If the annual demand for an item is normally distributed with a mean of 8000 
units and standard deviation of 1000 units, what should the safety stock and reorder 
point be if the lead time is 1 2 month? (assume management has decided it is willing to 
be out of stock in 5% of the order cycles) 

From the normal distribution table, Z= 1.64 corresponding to a 5% 
one tail risk of stocking out. 

D = R 12 = 667 

(J vlTT7r= 288 

B = .Mg =i D X L)+ 1.64 V"r=669 

S = .M - Z? X L = 335 

a — 

Where ; R = Average annual demand 

Mg = B = lead time demand at acceptable service level in units, 

The safety stock is 335 units, and the reorder point is 669 units. 
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APPENDIX B 
DATA STRUCTURE 



1. OVERVIEW 

There are seven interrelated files in the proposed system. The PROPERTY and 
ASL file, PROPERTY. DBF and ASL.DBF, are used in the inventory control 
management. They contain for each item its stock number, its attributes and its 
inventory control criteria. 

The main files for transactions and report and statistics generation are the 
BATCH MASTER, and STOCKOUT files - BATCH.DBF, .MASTER.DBF, 
STOCKOL’T.DBF. The batch file is a depositor)' of all the transactions arriving in one 
day. At the end of the day, transactions are processed and the demand is satisfied 
based on the transaction priority, priorities are determined by the unit's Standard 
Operating Procedure(SOP.) Transactions are moved to either the master or the 
stockout files. 

These three files contain transaction specific data. As detail files, they define only 
those elements defining a transaction and do not include global or unchanging 
elements. such as the customer's description or stock item's nomenclature. Global 
elements are referenced by a unique identifier. 

2. DATA FILES 

a. Master 

The elements in the master file are SN, Cl, VN, REQNO, QTY, T^'PE, 
UNITCOST, MISC, DATE, and POSTED. The SN field identifies the stock number 
of each item on the transaction and is the key to the items file. Cl contains the 
customer number and is the key that link a transaction to the customer file which 
contains data on customer and supplier. SN and Cl link the records to the other 
source files. VN contains the voucher number of the transaction, and REQNO is the 
requisition number. 

The remaining fields --QTY, UNITCOST, DATE, contain the quantity, unit 
price, and date of the transaction. The TYPE field contains the transaction type which 
is shown in chapter II, Fig 2.2 transaction procedure. Table 4 in this appendi.x 
includes a detail description of the contents of the various elements. 
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TABLE 3 

DATA STRUCTURE 


Database 


Field name 


Master 


( SN , Cl , VN , REQNO , QTY , TYPE , UNITCOST , MISC , DATA , POSTED ) 
Primary = SN keys = Cl, TYPE 

Record on all transactions. 


Property 


( SN , SERIALNO , NM , UNIT , ONHAND , UNITCOST , TVALUE , 
ESSENCE, CLASS, DATE) 

Primary = SN 

Data on characteristics of stock item. 


ASL 


( SN , ROP , SL , ROOST , RCN , DATE ) 

Primary = SN 

Data on transaction control measures. 


Customer 


( Cl , CDESC , ADDRESS , ZIPCODE , FUND , EXPEND , 
PRIORITY, DATE) 

Primary = Cl 

Data on customer's record. 


Stockout 


( SN , Cl , VN , REQNO , TYPE , QTY , UNITCOST , DATE , MISC , POSTED ) 
Primary = SN keys = Cl, TYPE 
Records on all stockout transaction. 


Batch 


( SN , Cl , VN , REQNO , TYPE , QTY , UNITCOST , DATE , MI SC , POSTED ) 
Primary = SN keys = Cl, VN, REQNO 
Intermediate records on transactions. 


Normal 


(TZ,POFB,POFM,EOFZ) 

nokey 

Table of normal distribution. 



b. Property file 

The property file contains all the information pertinent to each stock number. 
The first field, SN, is the key for accessing this file. The ONHAND and UNITCOST 
are quantity on hand and the unit cost respectively. For other fields refer to the Table 
3 

c. ASL file 

The ASL file contains all the information on the control measures for each 
item. The first field, SN, is the key for accessing this file. RO field is the requisition 
objective defined in chapter two. ROP is the reorder point, whenever the ONHAND 
on property file reaches to this point, the system issues a request for issue to the 
logistics support command automatically. SL is safety level used in calculating the 
appropriate requisition objective. 
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d. Customer file 

The customer file, CL’STO.VtER.DBF, whose structure is shown in Table 3, 
contains all the information on both customers and suppliers. The customer ID (Cl) is 
the primary key for the customer file, allowing quick access to a particular customer 
record. The field CDESC contains the description of the Cl. The two fields FUND 
and EXPEND, althought not used by the system, are included in this file. Those fields 
provide the llexibility to extend the system and add fund accounting modules. 

e. Stockout file 

The stock-out file. STOCKOUT. DBF, contains the Stock Out items. The 
fields SN and Cl link the file to the property file and customer file. The VN field 
defines the transaction, 
f Batch file 

The batch file holds all transactions for the day. At the end of the day, 
transactions are processed and fulfilled based on their priority. As a result of the 
processing transactions are transfered to either the master or the Stock Out files. The 
field are the same as master file, 
g. Normal file 

The normal file, NORMAL. DBF, contains the values of the normal 
distribution, which provides the Z value corresponding to sigma. The field EOFZ 
contains the expected number of stockout with the probability of stockout. 

3. INDEX FILES 

The proposed system maintains a number of index files, each database file 
(except normal. dbO uses at least one index as a primary index for data retrievals during 
execution of the program. In addition, some files have additional indexes used by 
programs in printing reports or internal operations. 
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TABLE 4 

DATA DICTIONARY 



Field name 

Address 

Cdesc 

Class 

Date 

Essence 

Expend 

Fund 

Fundoh 

Hisc 

m 

Onhand 

Ost 

Outdate 

Priority 

Qty 

RCN 

Ref illdate 
ReqNO 

RO 

ROP 

Serialno 

SL 

SN 

lvalue 

Type 



Type 


Width 


Dec 


Character 


60 


0 


Character 


30 


0 


Character 


4 


0 


Date 


8 


0 


Logic 


1 


0 


Numeric 


10 


2 


Numeric 


1C 


2 


Numeric 


10 


2 


Logic 


1 


0 


Character 


16 


0 


Numeric 


5 


0 


Numeric 


3 


0 


Character 


4 


0 


Character 


1 


0 


Numeric 


5 


0 


Numeric 


4 


0 


Date 


8 


0 


Character 


16 


0 


Numeric 


5 


0 


Numeric 


4 


0 


Character 


10 


0 


Numeric 


4 


0 


Character 


16 


0 


Numeric 


10 


2 


Character 


2 


0 



Location 



Customer 

Address of a customer. 

Customer 

Common name of the customer. 

(Ex. The 150 division 1002 regiment) 
Property 

Material classification. 

(Ex. 3 for fuel) 

All databases 

System date, or real date of the recod. 
Property 

Combat essential item. 

Customer 

The amount of $ spent by customer. 
Customer 

The allowed fund. 

Customer 

The onhand amount of $. 

Master , Batch 
Availability to reuse. 

Property 

Description of the stock number. 

(Ex . Hammer , . . . ) 

Property 

The amount of thee item in storage. 

ASL 

Order shipping time (lead time to issue). 

Stockout 

Stouckout date. 

Property 

Issue priority of the customer's. 

Master, Batchy Stockout 

The quantity involved in the transaction. 
ASL 

Resource control number. 

(Ex. 1289 for Rice) 

Stockout 

Refill date of the stockout item. 

Batch, Stockout, Master 

Reguest number composed of zulu date 

ana sequential number of the order. 

ASL 

Requisition objective of a stock item. 

RO = SL + EOQ 
ASL 

Reorder point of a stock item. 

ROP = SL + OST X demand rate 
Property 

Serial number of end item. 

ASL 

Safety level. 

SL = OST X possibility of stockout 
Master, ASL, Property, 

Stockout, Batch 

Stock number which is specified to 
every stock item. 

Property 

Total $ value of onhand quantity. 

Master, Stockout, Batch 
Transacton type. 

(Ex. RD = request for issue to division 
rrom organizational unit) 



TABLE 4 

DATA DICTIONARY (CONT D.) 



Unit 

Unitcos t 
VN 

Zipcode 


Character 4 

Numeric 8 

Character 16 

Character 6 


0 Property 

Heasureing unit of the item. 

(Ex. Cm, Kg, Each, Drum ) 

2 Master, Property, 

Stockout, Batch. 

Unit price of each item. 

(Ex. $20.00 for hammer) 

0 Master, Batch 
Voucher number. 

(Ex. 1500QM-0012-8309) 

0 Customer 

Zipcode of a customer's address. 








TABLE 5 








INDEX FILES 


File 


Index 

key 


Index 

name 


Description 


Property 


SN 


Snproper 


Index by stock number 


Customer 


Cl 


Cicust 


Index by customer's ID 


ASL 


SN 


Inasl 


Index by stock number 


Batch 


SN+CI 

Cl 


Sncibat 

Cibat 


Index by stock number and 

Customer's ID (Used in transaction issue 

Index by customer's ID. 


Stockout 


SN+CI 


Stockout 


Index by stock number and customer's ID 
(used in retrieve stockout item which is 
caused by customer) 


Master 


SN+CI 

+TYPE 


Sctmast 


Index by stock number 

and Customer's ID and transaction type. 




CI+SN 


Csmast 


Index by customer ID and stock number 
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APPENDIX C 
SYSTEM STRUCTURE 



1. OVERVIEW 

The proposed system consists of four modules MAN’AGFL, TIUWSACT. 
REPORTS and ANALYSIS performing the following four functions file management, 
transaction processing, report generating and analysis. There are a number of 
subroutines and performing functions common to one or more modules. The system 
strucutre is shown in Figure C.l The menu system designed for this application 
corresponds to the gray portion on the figure. Appendi.x D (User's Manual) contains 
detailed instructions on how to use the system. This appendix will concentrate on 
describing the modules. 

2. PMMAIN 

PM MAIN is the normal starting point of the program and it displays the main 
menu and stores the last request and voucher numbers issued by the division. The 
menu is used to to select one of the four main modules as shown in Figure C.2 

3. MANAGFL 

This module is designed for file management and contains ten submodules and 
several screen formats. During the initial system loading, the user needs to enter data 
into Property. ASL, and Customer files using the ADDPROP, ADDASL and 
ADDPROP submodules. During routine operations, the user may correct entered 
records in Property, ASL, and Customer files by using EDITPROP, EDITASL, and 
EDITCUST respectively. The user may correct transactions using EDITMAST and 
EDITBAT. 

The flow chart in Figure C.3 illustrates the procedure of ADDPROP. prg. Since 
the file management procedures are closely related, only one flow chart is presented as 
an illustration. 

The Manageq provides queries on files. The user may consult the present list of 
stock numbers by stock number, material class, or all stock items. An example is 
shown on the Figure C.4 
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TRANSACT 
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SETUP 
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TRSTOCK 
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MAST fnnl 



ADDCUSl 
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- TURNTOLC 
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TURNIN 


" ADDCUST 










TRTUNLST 



- TRCANCEL 



1 



QUERY 



INVENTORY 

MANAGEMENT SYSTEM 
(PMAIN) 



MYFILE 



PMMENU 



REPORTS 



J 



RFTSR 



I 



PRINTER SELECT 



PRINTER 



RPOST 

I 



SELECT 



RPEIS 

T 



PRINTER SELECT 



PRINTER 



RPSOR 

r" 



ALL 



CLA.SS 



X 



ANEOQ 



ANPROC 



STOCK NO 



PRINTER 



ANALYSIS 






AN LI 


EADT 



- ADDPROP 



MANAGEFL 
: I 



ADDASL 

^ Annr 



ASL tnru 


■ EDITPRO 






editasl 


■ PROP fmi 




- ADDCUST 






ASL fmi 


■ EDITPRO 






EDlTASl 


■ PROPfmt 



EDITASL 

^ fniifl 



EDITBAT 



EDITCUST 

^ Fnirrii' 



EDITMAST 

^ fniTMA 



EDITPROP 

^ fniiPHr 



■- MANAGEQ 



Figure C.l Detailed system structure 
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Inventory Manegement System 




Today is U/10/87 (2ULU:7322) 



Figure C.2 Pmmain screen. 

4. TRANSACT 

Tliis module includes ten submodules corresponding to the type of transaction, 
and query on transaction. The overall data flow is shown in the Figure 4.3 This 
module is the main procedure and contains the analysis and report programs. The 
main menu for this module is shown in the Figure C.5 

a. StockRD 

This submodule is designed for transaction type RD - request for issue to the 
division from the organizational unit. It stores input transactions, e.g. request for issue 
and turn-in, in a batch file. The submodule checks the validity of both the stock 
number and the Customer ID. If either is invalid, or the number is not included in the 
apprporiate parent file, i.e. Property and Customer files, the program will prompt the 
user to update the parent files prior to accepting the entry. In other words no 
transactions is accepted without a valid SN and Cl. The Figure C.6 illustrates the 
procedure. 

b. TRbatch and TRissue 

These submodules are the batch file processing procedures. They check 
whether the ONHAND quantity satifies the total quantity requested in that day. If the 
ONHAND is less, transactions are satisfied based on their priority. The submodules 
generate a request for material when the ONHAND quantity reaches the render point. 
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Close all files 



/ Return ^ 
V AOOPROP ) 



Figure C.3 The flow chart of ADDPROP module 
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Query on Stock number 



Options 



1. Stock number 

2. Class Enter Class Number; 7 

3. All (01 for class 10 

4. Return to main menu 
Enter Option; 2 



Page No. 1 

11/16/87 

Stock number Listing 



Stock number 


Nomenclature 


Price 


Onhand 


Requisi ton 


Reorder 


Safety 










Objective 


Pot in t 


Level 


♦ Material Class 


7 












7520-00-281-5911 


Baskets Waste 


10.00 


180 


180 


50 


20 


7510-00-984-5787 


Binder 


12.00 


93 


190 


10 


3 


7920-00-141-5452 


Handle, Wood 


1122.00 


438 


10 


3 


2 


7520-00-904-1268 


Marker 


2.00 


200 


290 


100 


30 


7510-00-022-8926 


Pencil 


1.00 


520 


7000 


100 


80 


7510-00-543-6792 


Refill 


0.20 


1120 


1800 


900 


45 


7930-00-141-5888 


Wax, Floor 


10.00 


30 


500 


25 


15 


7940-00-168-3366 


Widget 


120.00 


23 


0 


0 


0 


7777-77-777-7777 


Test item7 


26.00 


5085 


500 


280 


140 



Figure C.4 Example of MAN'AGEQ module. 

Finally they are responsible for aggregating all requests from a single customer into a 
one issue list. Figure C.7 shows their flowchart. 

c. TRreqlst 

Module TRREQLST is used for special events, that is, the manager may be 
requested to prepare for special events in the division such as training or unplanned 
construction. This module issues a warning to reflect that the input transaction is not 
a regular one. 

d. TRstock 

This module designed for type TL' transactions, ie issue from logistics support 
command. This module validates the customer or supplier ID and the item SN as one 
of the authorized supplier, initial supplies, and ASL item. A second check determines 
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Transact ion 



routine 



Type of transaction 



1 : Request for issue to Oiv 

2 : Issue to customer from Div 

3 : Request for turn-in to Div 

4 : Receive from LSC 

5 : Request for issue to LSC 

6 : Request for turn-in to LSC 

7 : Cancel RL to LSC 

8 : Cancel RD to Oiv 

9 : Query on transaction 



(Enter Selection from (1 - 



Source 

Stock number : 
Customer : 



Information 

Today is ...•12/02/87 
(Zulu : 7336) 

Last VN : 1500QM-003 1-7317 
Last Reqno : 1500QM-0014-7317 

9, or 0 to return) : 1 : ) 



Figure C.5 Transaction menu screen. 

whether the item received is a stock out item. If it is, the delayed issue list is processed, 
and all related recording is posted (STOCKOUT.DBF, MASTER.DBF). This process 
is shown in Figure C.8 

e. TURTOLC, TRTURNIN and TRTUNLST 

Thesa submodules accepts items returned from units. Tum-in flow chart is 
shown in Figure C.9 
f Query 

This module generates transactions' reprots. Queries such as how many 
transactions have occurred in given period for specified customer, stock number, 
material class, or all stock number, may be answered. Figure C.IO shows the screen 
menu for this submodule. 
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Figure C.6 TRSTOKRD (Request to division) module flow chart 
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Figure C.7 TRBATCH (batch process) module flow chart 
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START 

(TRSTOCK) 




0 




Save transaction 



Look for conditions 




Figure C.8 TRSTOCK (Issue from LSC) module flow chart 
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Figure C.9 TURNTULC (Turn-in to LSC) module flow chart 
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Sales Tracicing 



Options 

1. Detail Sales 

2. Summary Sales 

3. Detail Customer Sales 

4. Summary Customer Sales 

5. Return to main menu 
Enter Option: 1 



Enter period for sales tracicing (01/01/87 - 01/01/8 ) 



Page Mo. 1 
11/16/87 

Sales Transaction Tracicing 
Detail Sales 



Customer Quantity Price Total 

ID # 



*• Stocic number 


1111-11-111-1111 




1500 


7 


10.00 


70.00 


1500 


88 


10.00 


880.00 


1509 


1 


10.00 


10.00 


1509 


100 


10.00 


1000.00 


1509 


100 


10.00 


1000.00 


1509 


10 


10.00 


100.00 


1509 


10 


10.00 


100.00 


1509 


40 


10.00 


400.00 


3333 


95 


10.00 


950.00 


5090 


100 


10.00 


1000.00 


5093 


100 


10.00 


1000.00 


*• Subtotal ** 


651 




6510.00 


** Stocic number 


2222- 


-22-222-2222 




1500 


97 


10.00 


970.00 


1500 


97 


10.00 


970.00 


1504 


100 


2.00 


200.00 


1507 


10 


2.00 


20.00 


1508 


200 


2.00 


400.00 


** Subtotal ** 


504 




2560.00 


** Stocic number 


3333- 


33-333-3333 




1500 


25 


0.00 


0.00 


1509 


2 


102.00 


204.00 


1509 


2 


102.00 


204.00 


5012 


2 


0.00 


0.00 


5014 


1 


102.00 


102.00 


5032 


2 


102.00 


204.00 


** Subtotal ** 


34 




714.00 



Figure C.IO Example of Query on transaction module. 
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5, REPORTS 



This module consists of RPTSR, RPOST, RPEIS, RPSOR for transaction status, 
order shipping time, essential item stockout, and stock out reports respectively. Each 
module creates temporary files and erases them at the end of session. The selection 
screen in this module is shown on the Figure C.ll followed by examples from the 
various reprots, 



REPORTS 



Type of Reports 



1 t Transaction Status Report 

(DA form 3183) 

2 : Stockout Report 

(DA form 3184) 

3 : OST Report 

(DA form 3185) 

4 : Combat Essential Item 

Stockout Report 
(DA form 3186) 



(Enter Selection from (1 - 



Information 

Last TSR Report Date 
11/12/87 

Today 11/16/87(7320) 

Time Period 

Biginning Date - Ending Date 

( / / - / / ) 

4, or 0 to return) : ;) 



Figure C.l 1 Report module menu screen. 
Rerfer to the Figure C.l 2, Figure C.l 3 and Figure C.14 
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Figure 0.12 RP^rSU (Transaction status report) module flow chart 
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( START ^ 
(RPOST) J 



Tell "Select' 



I 



Get "Select" 




Figure C.13 RPOST (Order shipping time report) module flow chart 
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START 

(RPSOR) 



/ 



Get "Select" 



I 



(Create temporary file for conditions) 
Conditions : From stockout dbf 

Period = User Entered 
Selection = All, Class, Sn 




Figure C.14 RPSOR (Stockout report) module flow chart 
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6. ANALYSIS 



This module consists of three procedures, ANLEADT, ANEOQ, and ANPROC 
and is used to calculate the average lead time of any stock item. The Average Lead 
Time is used in calculating safety level, reorder point, and finally economic order 
quantity. The module ANPROC has many procedures which contains zulu date, 
average, standard deviation, and variance. These procedures are called from the 
ANALYSIS module whenever needed. The data flow in this module is shown in 
chapter three limited analysis section. The detailed process is in the flow chart in 
Figure 4.5 The first screen of this module is shown on the Figure C.15 



ANALYSIS Of TRANSACTION 



Today : 11/16/87 



THIS SYSTEM USES THE FIXED ORDER SIZE SYSTEM WITH PROBABILISTIC 
MODEL. THE FIXED ORDER SIZE SYSTEM IS COMPLETELY DEFINED BY THE 
ORDER QUANTITY [QI AND REORDER POINT (B). THE RISK OF STOCKOUT 
OCCURS AFTER REORDER POINT. TO GET (Ql,(BI, YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM ASSUMED 
BACKORDER CASS WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 

Enter stock number : - - - 

Enter time period you want to test( 01/01/87 - 12/31/87 ) 

Begin End date 



Leave BLANK any space to Exit 



Figure C.15 Analysis module screen. 
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APPENDIX D 
USER'S MANUAL 



1. INTRODUCTION 

The proposed system is for the manager who works at the ROK Army division 
or lower level logistics management. It is written in dBASEIll Plus prograrruning 
language.. Routine transaction handling, transaction tracking, reports generation, and 
limited analysis on the transaction records can be accomplished with this system. 

The proposed system consists of three diskettes. One contains the software code 
developed in this thesis, the other two are dBASEIll plus system diskettes. 

a. Requirements 

The proposed system runs on the IBM PC family of computers, including the 
XT and AT, along with all true IBM compatibles. DBASEIll PLUS requires the 
following; 

/. The dBASEIll PLUS program disks and manual. 

2. An IBM PC, IBM XT, COMPAQ, or other 100 percent IBM PC- 
compatible computer with a monochrome or color monitor. 

3. MS-DOS or PC-DOS 

4. At least 256k of memory. 5 1 2k or more is suggested. 

5. Two 360k floppy disk drives or one 360k drive and a hard 
disk drive. A hard disk is suggested. 

6. A printer with at least 80-column capability is suggested. 

[Ref 8: p. 12) 

b. Organization 

The remainder of this manual is divided into two sections. Getting Started, 
describes the contents of the proposed system and how to install it. Working with the 
Proposed System, describes how to operate the system. 

2. GETTING STARTED 

The code of proposed system occupies one diskette only. Since the proposed 
system is not compiled, it needs the dBASEIll plus system diskettes. The proposed 
system assumes that dBASEIll plus is available in a subdirectory DBASEIll. So 
install Dbase III Plus in a subdirectory called DBASEIll, see Dbase 111 manual for 
instructions. 
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a. Configuration 

Before installing the system, ensure that the config.sys file in your system contains the 
following commands: 

BUFFERS = 15 
FILES = 20 

If your system does not contain a config.sys file, you may copy it from the DBase 111 
system diskette. 

You also need a config.db file in your dBASElll subdirectory with command 
"TYPEHEAD = 20". If you do not have this file, copy it from the DBase 111 system 
diskette. If you have config.db add the command and erase config.db file from the 
proposed system. 

you can create either or both files using the DOS editor or the following 
commands; 

Copy con config.db 



TYPEHEAD = 20 



You may want to get into the system directly from the bootup. If this is the case, add 
the following commands to your autoexec.bat file. 



PATH = C:\; DOS; dBASElll 
CD dBASElll 
DBASE 
CD 

Now you are ready to install the proposed system in your computer, 
b. Summary of the proposed system disk. 

The thesis system disk contains the following programs and files; 

Extention 



ASL 


CUSTOMER 


NORMAL 


MASTER 


STOCKOUT 


BATCH 


PROPERTY 


ANALYSIS 


ANLEADT 


TRREQLST 


RPTSR 


ADDPROP 


EDITBAT 


MANAGEQ 


SELECT 


ANEOQ 


REPORTS 


TRBATCH 


ADDASL 


TRTURNIN 


RPEIS 


PRINT 


TRCANCEL 


RPOST 


RPSOR 


TRISSUE 


EDITCUST 


TRTUNLST 


EDITMAST 


CONTINUE 


ANPROC 


PMAIN 


TRANSACT 


TRACKING 


EDITPROP 


TURNTOLC 


MANAGE FL 


PMMENU 


TRSTOCK 


SETUP 


ADDCUST 


EDITASL 


TRSTOKRD 


PRINTER 
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SCR 


EDBAT 


BATCH 


ASL 


EDITMAST 


EDITPROP 


MAST 


CUST 




PROP 


EDITCUST 


EDITASL 


TURNIN 


CANCMAST 






FMT 


PROP 


EDITPROP 


EDITMAST 


EDITCUST 


EOQ 


EDITBAT 


MASKMENU 




TURNIN 


BATCH 


EDITASL 


CUST 


MAST 


ASL 


CANCMAST 


FRM 


TRANRPl 


TRANRP2 


TRANRP5 


TRANRPL 


CUSTRPl 


STOCKRPl 




NDX 


SNPROPER 


CICUST 


INASL 


CIBAT 


STOCKOUT 


SCTMAST 


SNCIBAT 




eSMAST 














OTHERS 


INVENTOR. 


■ CAT 


MYFILE.MEM 




CONFIG. DB 


CONFIG.SYS 


If vour 



missing any of previous tiles, it will not work. 

.After confirming the existence of all the files, you are ready to install the 
system in your computer. 

It is recoirunend that you install in a subdirectory' called CONTROL in the 
DB.ASE III subdirectory. To create the subdirectory, insure that you are in the 
DB.ASE III directory and type; 

MD CONTROL 

Change directory to 'CONTROL' by typing cd dBASEIII CONTROL and insert the 
proposed system diskette in drive A, and copy all files into C; using the following 
commands; 

CD dBASEI If CONTROL 
COPY A;N* C: 

CD 

Now you are ready to start. 
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3. WORKING WITH THE PROPOSED SYSTEM 



At the DBASE III prompt, type "DO PM AIN" to get the main menu in 
Figure D.l, the starting point of the system. At the main menu, you may execute one 
of five actions. Options I thru 4 will start one of the four program modules. The fifth, 
initiated by typing 5, allows you to change the system date. 




Today is 11/18/87 (ZULU: 7322) 



Figure D.l Main menu(P.MAIN). 
a. Routine transaction 

You have reached this point by choosing option 1 from the main menu. This 
submodule allows to enter transactions and follows the same procedures as the division 
supply support action among logistics support command and organizational units. 

There are nine options on the menu screen, see Figure D.2 

I. Request for issue from a customer 

This is the procedure to accept a request for issue from your customer and 
you reach this point by choosing option 1 from the Routine Transaction Menu. This 
screen is shown in Figure D.3 

The program will check the validity of the customer and stock numbers. If 
either is invalid the program will not accept it and it will prompt you to check its 
validity or add it to the appropraite file. 
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Transact ion 



routine 



Type of transaction 



1 : Request for issue to Oiv 

2 : Issue to customer from Div 

3 : Request for turn-in to Oiv 

4 ; Receive from LSC 

5 ; Request for issue to LSC 

6 : Request for turn-in to LSC 

7 : Cancel RL to LSC 

8 : Cancel RD to Div 

9 : Query on transaction 



[Enter Selection from (1 - 



‘ Source 
Stock number : 
Customer : 



Information 

Today is 12/02/87 

(Zulu ; 7336) 

Last VN ; 1500QM-003 1-7317 
Last Reqno : 1500QM-0014-7317 

9 , or 0 to return ) : 1 ; J 



Figure D.2 Routine transaction menu screen. 

Enter, the customer and stock numbers and quantity required. The menu 
will prompt you for additional items, and the program will generate a request number. 
For additional customers change the customer's code and follow the same procedure. 

2. Issue to the customer 

This program will generate an issue list for each customer. You have 
reached it by choosing option 2 from the transaction routines. This procedure will be 
executed once every' day . The system will integrate all of the request for the day to get 
the allowance, and consult the availability of the item in stock. If an item is short to 
meet the requests, it will follow the priority to issue, then report the request for issue to 
the logistics support command. 

You may get a print out if you so desire. E.xamples of the reports are 
shown in Figure D.4 

3. Request for turn-in 

This procedure handles requests for turn-in from a customer. You have 
reached this option by entring 3 from the Routine Transaction Menu. The screen is 
shown in Figure D.5, Enter the required elements and, when prompted, prepare the 
printer. An e.xample of the output is presented below the screen. 
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Requset for issue 



Today 



11/16/87 



Requested From ; Division aviation bn 

Send To : The 150 Infantry Division 



Type of transaction : (RD) Request No : 1509S4-0019-7320 

Request for Issue to Div ( Customer's) 

Stock Number : 5555-55-555-5555 
Description :Test item5 

Unit :Roll Price : 3.00 $ 

Quantity :500 



Is this record correct ? X 
Figure D.3 Request for issue from customer screen. 

4. Receive stock item from LSC 

Select option 4 from the Routine Transaction Menu to reach this point. 
Enter the elements shown on the screen in Figure D.6 The possible output is below the 
figure. 

This procedure is complex and it validates the customer and stock number, 
checks due-ins and due-outs, and delay issue of the item. 

5. Direct request to LSC 

Option 5, 6 will work for special request for issue to LSC. This procedure 
is not for routine transactions. A warning will be issued when you access these options. 

6. Cancellation of request 

Options 7, 8 will execute user's cancellation requests. Upon selection of 
one of these options you will receive the screen shown in Figure D.7 After you enter 
the data, you will be prompted to confirm the record the transaction will be cancel. 
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R£QOEST FOR ISSUE 

To : The 3333 Logistics Support Command 
From : The ISO Infantry Division 

Request No 



Page 1 
Date : 11/13/87 

1500QM-0014-7317 



No Stock number 
1 1111 - 11 - 111-1111 
2 8888 - 88 - 888-8888 



Description Unit 

Test iteml 2a 

Test item8 2a 



Quantity Price 

105 10 

20 22 



Total 

1050 

440 



^rand Total IT49(i 



Matrial Management NCO : 

Material Management Officer : 



Date : / / 

Date : / / 



ISSUE LIST 



Page 

Date : 11/13/87 



From : The 150 Infanry Division 
To : The 150 div 1501 regiment 



No 



Stock number 



Vocher No: 1500QM-0029-7317 
Description Onhand Unit Quant'y Price 



1 1111-11-111-1111 Test iteml 

2 5555-55-555-5555 Test item5 

3 8888-88-888-8888 Teat item8 



SORRY! Delay delivery 

7976 Roll 300 ; 

SORRY! Delay delivery 

Grand Tocal ;$ 



Total 

900 



900 



Matrial Management NCO : Dace 

Material Management Officer : Date 

Figure D.4 Batch process examples. 




b. File management 

It is important to enter the Property, ASL and Customer files data first. This 
will limit the interruptions due to missing Cl and SN. To save the necessary data in 
advance or during the routine transaction job, choose option 2 from the main menu. 
It will display the screen shown in Figure D.8 From this menu, you can add customer 
and stock numbers to the Customer, Property', and ASL files. You can also edit 
records in these files as well as the Master and Batch Files. 

There are nine options on this screen, these are 

I. Addition 

(1) Customer. These programs add customer, supplier and item to the 
appropraite files. On selecting the number 1, the stock number shell will be blocked, 
and customer shell will await your entry. You must know the customer's code, usually 
the four digit common name of the unit. After entering the code of the customer, the 
system validates the record in customer file to prevent duplication. Once confirmed, 
the next screen which is named 'customer file' in Figure D.9 will appear. Enter the data 
and confirm that the record is correct. Your confirmation adds the record to the file. 
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Today 



11/16/87 



Request for turn-in 



From ; 5010 Regiment 2 Bn 

To : The 150 Infantry Division 



Type of transaction ; (TD) 
Request for turn-in 



Request No ; 5012S4-0011-7320 



Stock number : 1111-11-111-1111 

Description : Test iteml 

Unit : Ea Reuseable? : Y 

Price: 10.00 Quantity : 20 



Is this record correct ? X 



Figure D.5 Request for turn-in from customer. 



Receive liewstock from LSC 



Today is . . . 



11/16/87 



Receive from :The 3333 Logistics support Cmd 
Send to :The 150 Infantry Division 



Type of transaction : Voucher No : 1500QM-0027-7320 

Receive newstock from LSC Request Number: 

Stock Number :1111-11-111-1111 
Description :Test iteml 
Unit : EA 

Quantity 95 Reusable? : T 

Price 10.00 



Is this record correct ? X 
Figure D.6 Receive stock item from LSC. 

To add a property record in your property file, select option two. On 
selecting the option the customer shell will be blocked and stock number shell will be 
highlighted. After you have entered the stock number the system will validate your 
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Cancel Request for issue item 



Today ..11/16/87(7320) 



Stock number : 2222-22-222-2222 
Customer Code: 1500 
Request number: 1500QM-0009-7305 

Quantity : 97 Price : 10.00 Date :(ll/0)/87 



Is this record what you want to cancel?(Y/N) N 



Figure D.7 Cancellation of request screen. 



jManagewent of files 



Edit files 

4. To change Customer (Cl) 

5. To change Property (SN) 

6. To change ASL (SN) 

7. To change Master (SN+REQNO) 

8. To change Batch (SN+REQNO) 

9. Query on files 

(Enter Selection (1 - 9, or 0 



Addition 



1. To add Customer (Cl) 

2. To add Property (SN) 

3. To add ASL (SN) 



Information 



Today is 11/19/87 

Stock number : XXXX-XX-XXX-XXXX 

(Or/And ) 

Customer code : 



to go to mainmenu) :!;] 



Figure D.8 File management screen. 

entry. If accurate, you'll see the next screen, in Figure DJO Steps similar to customer 
addition are followed. However, since the ASL list is closely related to the property list. 
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File 



Today is 



11/16/87 



Customer 



Customer Code 


2222 


Priority 6 


Name 


Test unit 




Address 


Example city 






700-11 Zip 


code 


Fund : 


0.00 $ 


Allowed 




0.00 $ 


Expediture 



Is this record correct ? Y 



Figure D.9 Customer addition screen. 

the program will ask you whether the item is also an ASL item and will added to the 
ASL file if necessary. 



Property Book file 



Today 



11/16/87 



Stock number 


• 

• 


8989-89-898-9898 


Serial NO 


• 

• 




Description 


• 

• 


Example item 


Unit 


• 

# 


ball Class : 8 


On hand 


• 

# 


100 


Price 


• 

• 


9.12 $ 


Is this combat 


essential item ? : N 



Is this record correct ? ; X 
Figure D.IO Property list addition screen. 
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Another method to add an ASL is to add it directly to the ASL file by 
choosing option 3. It is suggested that you use this method in the case of a newly 
allowed ASL item. The screen for this option is shown in Figure D.ll 



Authorized storage list file 



Today is 



12/02/87 



Stock number i 


: 1111-00-111-0001 


Reorder Point i 


100 


Safety Level : 


20 


Requisition Objective : 


; 5000 


Order Shipping Time 


: 12 days 


Resource control number ; 


! 1122 



Is this record correct ? : X 

Figure D.l 1 ASL list addition screen. 

2. Editing or Deletion of an entry 

There are five options in this process. Options 4, 5, 6 are equivalent to 
option 1, 2, 3 respectively. Option 7 allows you to change type TL records, other 
records' types are automatically saved through the transaction process. Option 8 
allows edits of any type of transactions so use it carefully. 

(1) Customer. From the screen 'management of file' in Figure D.8, select 
option 4, You will be asked to enter the customer's code that you want to change or 
delete. On entering the code the program retrieves the customer record from the 
customer file and displays the next screen in Figure D.12 Edit the screen and exit by 
pressing the CONTROL and END keys at the same time. 

(2) Property and ASL. This procedure is almost same as the option 4. 
Take option 5 for property and 6 for ASL. The edit screen for the ASL list is shown in 
Figure D.13 
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Today 



11/16/87 



Edit or Delete CUSTOMER file 



Customer : 2222 code 


Priority ; 6 




Test unit 




Description 


Example city 




Address 


700-11 




Zipcode 


Fund allwed : 0.00 


0.00 


Expend 




0.00 


On hand 




Last edit date : 


11/16/87 



(Insert mode) 


: Ins 


(Record) Next 


; PgDn 


(Delete) 


Character :Del 


Previous 


; PgUp 


Field: 


“Y Record; '‘U 


(Done/Save) : 


'‘End Abandon :Esc 



Figure D.12 Customer record editing screen. 



Edit Authorized Storage List file 



Today 11/29/87 



Stock number : 2222-22-222-2222 



Reorder Point : 80 

Safety Level ; 30 

Requisition Objective : 



Order shipping time 
Date 

180 



21 days 
09/12/87 



Resource control number : 2222 





(Insert mode) : Ins 
(Delete) Character :Del 

Field; *Y Record; '‘U 


(Record) Next : PgDn 
Previous ; PgUp 

(Done/Save) ; *End Abandon ;Esc 



Figure D.13 ASL list record editing screen. 
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(3) Master file records. This procedure edits the master file records. It 
requires you to enter the stock number, the customer's ID, and the date of the 
transaction. Its screen is showm in Figure D.I4 



Edit/Change Master file 



Today 11/29/87 



Stock Number : 3333-33-333-3333 

Customer code : 1504 Action Type : RD 

Request Number : 1500QM-0032-7333 

1504S4-0001-7330 Customer's 



Quantity ; 10 

Price : 102.$ Reusable ? ; T 

Date : 11/29/87 



(Insert mode) 


: Ins 


(Record) Next 


; PgDn 


( Delete ) 


Character :Del 


Previous 


: PgUp 


Field; 


"Y Record: "U 


( Done/Save ) ; 


'‘End Abandon ;Esc 



Figure D.I4 Master file record editing screen. 

(4) BATCH file records. Sometimes you need to change records already 
entered in the ASL file through transaction routine. This procedure is more generous 
than option 7. You may enter the information you have, when you get the screen in 
Figure D.15, you will find out appropriate record by using the function keys which are 
given below the screen. 
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Edit (change or delete) Batch file 



Today 



11/29/87 



Stock 


number 


• 

• 


3333-33-333-3333 


Voucher 


number 


• 

• 


1504S4-0001-7330 


Customer Code 


• 


1504 


Type of action : 


RD 




Posted : 


Quantity : 




10 


Unitcost : 102.00 $ 


Date 


: 11/29/87 



(Insert mode) 


: Ins 


(Record) Next 


: PgDn 


( Delete ) 


Character :Del 


Previous 


: PgUp 


Field: 


Record: 


(Done/Save) : 


'’End Abandon :Esc 



Figure D.15 Batch file record editing screen, 
c. Reports generation 

. Four Types of reports are available in the system. Each report, other than 
combat essential item stock-out report, may be generated by stock number, by material 
class, and all. You can get both printed and screen reports. The menu screen is 
presented in Figure D.16 

1. Transaction status report 

To get the transaction status report, select option 1 and enter appropriate 
time period. Select any option you want from the screen in Figure D.17 For example, 
if you want to get the transaction status reports on material class 2, select option 2. 
You will be asked to enter the material class, and the type of report, ie screen or print 
out. It is recommended that you postpone requesting the print out till you check the 
output on the screen. 

Examples of each option are presented in Figure D.18 

2. Other Reports 

Other reports can be obtained using the same procedure as the transaction 
status report. Select 2 for stock-out, 3 for order shipping time, 4 for combat essential 
item stock-out reports. 
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REPORTS 



Type of Reports 



1 t Transaction Status Report 

(DA form 3133) 

2 : Stockout Report 

(DA form 3184) 

3 : OST Report 

(DA form 3185) 

4 : Combat Essential Item 

Stockout Report 
(DA form 3186) 



Information 

Last TSR Report Date 
11/12/87 

Today 11/16/87(7320) 

Time Period 

Biginning Date - Ending Date 

{ ./ / - / / ) 



(Enter Selection Cron (1 - 4 , or 0 to return) : s] 



Figure D.16 Reports generation menu screen. 



Sales Tracking 

Options 


1. 


Detail Sales 


2. 


Sununary Sales 


3. 


Detail Customer Sales 


4. 


Summary Customer Sales 


5. 


Return to main menu 


Enter 


Option: 1 


Enter period 


i for sales tracking (01/01/87 - 01/01/8 ) 



Figure D.17 Transaction status report option menu. 

d. Analysis 

From the main menu screen select option 4. When you get the screen in 
Figure D.19 enter the stock number you want to analyze and the time period. 
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Transact Status Report 



Page I 
Date : 11/06/37 



From : The 150 Infanry Division 

To : The 3333 Logistics Supprot Command 



From 

01/01/87 

No Stock numbe 

1 1111 - 11 - 111-1 
Class 1 



Class 2 



To 

01 / 01/88 



Class 3 



Class 3 



Class 9 



Description 
Test iteml 


D/Ibeg 

0 


Req ' st 
950 


Cancel 

0 


Rec ' ve 
0 


Turnin 

0 


D/Inow 

950 


Subtotal 


0 


950 


0 


0 


0 


950 


Test item2 


0 


970 


0 


0 


0 


970 


Subtotal 


0 


970 


0 


0 


0 


970 


Test item3 


0 


0 


0 


0 


0 


0 


Subtotal 


0 


0 


0 


0 


0 


0 


Test item8 


0 


0 


0 


264 


0 


-264 


Subtotal 


0 


0 


0 


264 


0 


-264 


Test item9 


0 


0 


0 


24 


0 


-24 


Subtotal 


0 


0 


0 


24 


0 


-24 



Matrial Management NCO : 

Material Management Officer : 



Date 

Date 



Stockout Report 



To ; The 3333 Logistics Supprot Command 
From : The 150 Infanry Division 



Date 



Page 

11/06/37 



No 



Stock number 



Total 



30days 



SOdays 



90days 



120days 



1 1111 - 11 - 111-1111 
Class 1 

Subtotal 

1 2222 - 22 - 222-2222 
Class 2 

Subtotal 



Class 5 



Subtotal 



1 8338-83-888-3888 
Class 8 

Subtotal 



rotal 


Cost 


Item 


Cost 


Item 


Cost 


Item 


Cost 


I tern 


Cost 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


370 


740 


370 


740 


0 


0 


0 


0 


0 


0 


370 


740 


370 


740 


0 


0 


0 


0 


0 


0 


1000 


3000 


1000 


3000 


0 


0 


0 


0 


0 


0 


1000 


3000 


1000 


3000 


0 


0 


0 


0 


0 


0 


100 


2200 


100 


2200 


0 


0 


0 


0 


0 


0 


100 


2200 


100 


2200 


0 


0 


0 


0 


0 


0 



Matrial Management NCO : 



Material Management Officer : 



Date : 
Date : 



Figure D.18 Examples of Transaction status reports. 
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The time period will effect the output results. Choose longer period to 
increase the confidence in the results. 



ANALYSIS OC TRANSACTION 



Today ; 11/16/87 



THIS SYSTEM OSES THE FIXED ORDER SIZE SYSTEM WITH PROBABILISTIC 
MODEL, THE FIXED ORDER SIZE SYSTEM IS COMPLETELY DEFINED BY THE 
ORDER QUANTITY [QJ AND REORDER POINT [Bj. THE RISK OF STOCKOUT 
OCCURS AFTER REORDER POINT. TO GET [QJ,(BI, YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM ASSUMED 
BACKORDER CASS WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 

Encar stock nu«bar t - - - 

Entar tiaa pariod you want to tast( 01/01/87 - 12/31/87 ) 

Baqin End data 



Laava BLANK any spaca to Exit 



Figure D. 19 Analysis start-up screen. 

You may try as many time as you want with different possible data. However you 
should select one method only. If you do not enter an element, default data will be 
assumed (ie, service level 85% and holding cost rate 15% of the annual inventory’). 
After entering data into the screen in Figure D.20, the program will display the results 
and will instruct you on how to save them. The result screen is shown in Figure D.20 
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I M FORM AXIOM Cor ANALYSIS 



You selected stock number ; 8883-38-388-3888 
(Test items, UnitiSa, Class:3 ) 

Purchasing price (P) : 22 $/Ea 

Annual Demand(R) : 100 Ea/year 

Lead timeCOST) in Month : 0 Month (s) 



Ordering cost(C) 
Holding cost unit per year 
(Select one of these) 

Stockout cost (If Known) 
Service Level in year 



0.00 S/order 
0.00 \ 

0.00 S/unit Select? N 
0.0000 % Select? Y 



[PRESENT] Reorder point ;15 Safety Level :10 

Requisition objective :50 Lead Time : 14 



Is this record right? (Y/N): X 



Figure D.20 Variable entering for analysis. 



e. Query - 

Two types of queries are available. One is transaction tracking, and the other 
querries on a customer or present status of a stock number. 

For the management purposes the transaction records on a stock item or 
customer's records may be monitored. You may ask for detailed or summurized 
transaction record. Select option 9 from transaction menu screen. After the screen on 
Figure D.21 comes up, select any option. 

For example: 

If you want a customer's transaction detailed record, select option 1. You will 
be prompted for type of output, ie screen or print out. 

If you need to know the present inventory status on a stock number, material 
class, or all items, select option 9 from the file management menu on Figure D.8 The 
next procedure is the same as the transaction tracking. The options are presented on 
Figure D.22 
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Sales Tracking 



Options 

1. Detail Sales 

2. Summary Sales 

3. Detail Customer Sales 

4. Summary Customer Sales 

5. Return to main menu 
Enter Option: 1 



Enter period for sales tracking (01/01/87 - 01/01/3 ) 



Figure D. 21 Transaction tracking. 





Query on Stock number 


Options 


1. 


Seocic numbec 


2. 


Class Sneer Class Number: 7 


3. 


All [0] Cor class 10 


4. 


Reeurn eo inain menu 


Sneer 


Opeion: 2 



Figure D.22 Query on stock number. 
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APPENDIX E 
PROGRAM LISTING 



MAIN MENU 
a. PMAIN 



:*: X :Ar 7^ 7^: ^ :*r ^ PMAIN. PRG :*: T^r 7^ 7^: tV :*: T^r t^: 7 ^ 7 ^ :*: 7 ^ t^: 7 ^ x 7*c :*: tV ★ 7 ^ 7 ^ T^r t^c 7^ ★ t^: 7 ^ 7 ^ 

7^ 7^: 7^: T^r 7^ 7^ T^r ^ATtV 7^: 7^ T^r 7^ A7‘c7^7^r7^7^7^7^7^7^7^r7^7^7^7^7*^7^7^:7^rX7‘C7‘c7^7^7^7^7^7^7^7^7^7^7^7^7‘c7^7^7^7^7^7^7^7^7^7^7^7^7^7^7^7^7^7^7‘c7^7^:7^:7^ 



Module name....: PMAIN. prg 

Author : Park, Taeyong 

Date ; Aug 10 . 1987 

Purpose : Main menu of Inventory Management System 

for Republic of Korea Army Infantry Division 



Called by 

Modules called 

Variales used. . 

Public . 



7 ^ 

7 ^ 

7 ^ 

A 

7^ 

7 ^ 

7^ 

7*: 

7^ 

7^ 

7 ^ 

7 ^ 

7 ^ 

7 ^ 

7 ^ 

7 ^ 

7 ^ 

7 ^ 

7 ^: 

:k 

'k'k:k:k:k'ki^'k:k:ki<:k'k 



PMMENU . prg , MAMAGEFL . prg , TRANSACTION .prg 
REPORTS. prg, ANALYSIS. prg 

MCI holds customer identification code 
STOCKN holds stock number which identifies item 
TODAY holds current system date 
CHECK holds condition 

ZULU holds Zulu date which is converted 

REQNOl holds request number which issued the last 

VNl holds voucher number issued the last 

MTYPE holds type of transaction 

VAR holds the value of variance 

STD holds the value of standard deviation 

MLEADT holds the value of leadtime of any item 



Local . . : ZIDAY , Z2DAY , Z3DAY 

7^:7':7^7^7^7^7'r7A:7^7^7^X^7*:^7*C7^xA7^7^7^:7*C7A:7^7^7^7*i:A7^7^7^7^7^7^7*:7^7^7*:^7*t7*:7^7*:7^7^7^:7^7*:7^7*t7*:7*t7^7^7^A7^: 



* Close all open files and clear all variables. 

CLEAR ALL 

CLOSE ALL 

* Set working environment. 

SET TALK OFF 

SET BELL OFF 
SET HEADING OFF 
SET HELP OFF 
SET MENU OFF 
SET SAFETY OFF 
SET STATUS OFF 

* * 

* This sets up the CRASH. TXT file which records aii * 

* actions so that if the system crashes, the database....* 

* can be recreated. This file will be deleted if * 

* the system terminate normally * 



*SET ALTE to CRASH 
*SET ALTE ON 



* Define the public variables which can be used any module.... 

* without redefine 

Public MCI , STOCKN , CHECK , ZULU , REQNOl , VNl , MTYPE , VAR , STD , MLEADT 



* Restore memorized variables from memory file.* 

Restore from MYFILE.mem 

Store space (4) to MCI , ZULU, MTYPE 
STOCKN = space (16) 

CHECK = SPACE(l) 

* Create memory variable for today's date..* 

TODAY = dateO 

* Convert current date into zulu date..* 



Set century on 
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)4- 



ZDAY = DTOC (TODAY) 

Store "l/l/''+substr(2day,7,4) to ZIDAY 

Z2day = TODAY - ctod(Zlday)+l 

Store substr(ZDAY,10)+str(Z2DAY,7,3) to Z3DAY 

Store substr(Z3DAY,l,4) to ZULU 

Set century off 

DO WHILE .1. 

CLEAR 
DO PMMEMU 
DO WHILE .T. 
i=0 

DO WHILE i=0 
i=INKEY() 

§ 22,64 SAY "" 

IF UPPER(CHR(i))$"012345" 

EXIT 
END IF 
i=0 
EMDDO 

@ 22,64 SAY UPPER(CHR(i)) 

IF .NOT. CHR(i)$"5" 

EXIT 
END IF 

@ 24,38 GET today 
READ 

Set century on 
ZDAY = DTOC (TODAY) 

Store "l/l/"+substr(zday,7,4) to ZIDAY 
Z2day = TODAY - ctod(Zlday) +1 
Store substr(ZDAY,10)+str(Z2DAY,7,3) to Z3DAY 
Store substr(Z3DAY,l,4) to ZULU 
Set century off 
@ 24,38 SAY today 
@ 24,53 SAY ZULU 
ENDDO 

DO CASE 

Case CHR(I) = 

DO TRANSACT 

Case CHR(I) = '2' 

DO MANAGE FL 

Case CHR(I) = '3' 

DO REPORTS 

Case CHR(I) = '4' 

DO ANALYSIS 

Case CHR(I) = 'O' 

Release All like M* 

Release TODAY, i, CHECK, STOCKN 
Save to MYFILE.mem 

SET TALK ON 
SET BELL ON 
SET HEADING ON 
SET HELP ON 
SET MENU ON 
SET SAFETY ON 
SET STATUS ON 
CLEAR ALL 
EXIT 

OTHERWISE 

? chr(7) 

ENDCASE 

ENDDO 

SET ALTE OFF 
CLOSE ALTE 
ERASE CRASH.txt 
CLOSE DATABASES 
CLEAR 
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* When done, exit from the system 

RETURN 

* * Eof: PMAIN.prg * * 



b. PMMENU 



* Module name....: PMMENU. prg 

* Author : Park, Taeyong 

* Date ; AUG 10, 1987 

* Purpose : Provide Menu screen for the PMAIN program 

* Called by : PMAIN.prg 



* Module called. . : None * 

* Variable Used..: Today .-holds current system date * 

0 1,9 TO 3,69 
0 4,1 TO 23,77 DOUBLE 
0 6,3 TO 12,37 
0 5,4 TO 7,20 DOUBLE 
0 6,5 SAY SPACE (15) 

0 6,41 TO 12,75 
0 5,42 TO 7,59 DOUBLE 
0 6,43 SAY SPACEU6) 

0 14,3 TO 21,37 
0 13,4 TO 15,20 DOUBLE 
0 14,5 SAY SPACE(15) 

0 14,41 TO 21,75 
0 13,42 TO 15,59 DOUBLE 
0 14,43 SAY SPACE(16) 

0 5,2 SAY CHR(176HCHR(176) 

0 6,2 SAY CHR(176) 

07,2 SAY CHR(176) 

0 8,2 SAY CHR(176) 

0 9,2 SAY CHR(176) 

0 10,2 SAY CHR(176) 

0 11,2 SAY CHR(176) 

0 12,2 SAY CHR(176) 

0 13,2 SAY CHR(176)-KCHR(176) 

0 14,2 SAY CHR(176) 

0 15,2 SAY CHR(176) 

0 16,2 SAY CHR(176) 

0 17,2 SAY CHR(176) 

0 18,2 SAY CHR(176) 

0 19,2 SAY CHR(176) 

0 20,2 SAY CHR(176) 

0 21,2 SAY CHR(176) 

0 22,2 SAY REPLICATE(CHR(176) ,75) 

0 21,76 SAY CHR(176) 

0 20,76 SAY CHR(176) 

0 19,76 SAY CHR(176) 

0 18,76 SAY CHR(176) 

0 17,76 SAY CHR(176) 

0 16,76 SAY CHR(176) 

0 15,76 SAY CHR(176) 

0 14,76 SAY CHR(176) 

0 13,60 SAY REPLICATE(CHR(176) ,17) 

0 12,76 SAY CHR(176) 

0 11,76 SAY CHR(176) 

0 10,76 SAY CHR(176) 

0 9,76 SAY CHR(176) 

0 8,76 SAY CHR(176) 

0 7,76 SAY CHR(176) 

0 6,76 SAY CHRa76) 

0 5,60 SAY REPLICATE(CHR(176) ,17) 

0 5,21 SAY REPLICATE(CHR(176),21) 

0 6,38 SAY REPLICATE(CHR(176) ,3) 

0 7,38 SAY REPLICATE(CHR(176) ,3) 
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@ 8,38 SAY REPLICATE(CHR(176) ,3) 

@ 9,38 SAY REPLICATE(CHR(176),3) 

@ 10,38 SAY REPLICATE(CHR(176) ,3) 

0 11,38 SAY REPLICATE(CHR( 176) ,3) 

(3 12,38 SAY REPLICATE(CHR(176) ,3) 

@ 13,21 SAY REPLICATE(CHR(176) ,21) 

@ 14,38 SAY REPLICATE(CHR(176) ,3) 

0 15,38 SAY REPLICATE(CHR(176) ,3) 

(? 16,38 SAY REPLICATE(CHR( 176) ,3) 

@ 17,38 SAY REPLICATE(CHR(176) ,3) 

@ 13,38 SAY REPLICATE{CHR(176) ,3) 

@ 19,38 SAY REPLICATE(CHRU76) ,3) 

@ 20,38 SAY REPLICATE(CHR(176) ,3) 

@ 21,38 SAY REPLICATE(CHR{176) ,3) 

@2,12 SAY "Inventory Management Sy 
@ 6,6 SAY "1: Transaction" 

@6,44 SAY "2; Manage file " 

@14,6 SAY "3: Report " 

@ 14,44 SAY "4: Analysis" 

@ 8,44 SAY "Management of file:" 

@ 9,45 SAY "Add " 

@ 10,45 SAY "Edit (delete , change ) " 

@ 11,45 say "Query on files" 

@ 8,6 SAY "Routine transaction:" 

@9,7 SAY "Request for issue " 

@ 10,7 SAY "Receive item" 

@ 11,7 SAY "Query on transaction" 

@ 16,6 SAY "Report Generation:" 

@ 17,7 SAY "Transaction status report" 

@ 18,7 SAY "Stockout report" 

@ 19,7 SAY "Essential item stockout" 

@ 20,7 SAY "OST report. Fund status" 

@ 16,44 SAY "Analysis of" 

@ 17,45 SAY "Reorder point" 

@ 18,45 SAY "Lead time" 

@ 19,45 SAY "Requisition Objective" 

@ 20,45 SAY "Safety Level" 

@ 22,8 SAY "Enter Selection (1 - 4, 5 to change date, or 
@ 24,29 SAY "Today is "+" "+"(ZULU: ) " 

@ 24,38 say TODAY 
@ 24,53 SAY ZULU 
STORE "" TO SELECT 
@ 22,63 GET SELECT PICT "9" 

RETURN 

* Eof: PMMENU.prg * 



stem" 



to exit 
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ROUTINE TRANSACTION 



a. TRANSACTION MENU 

•k'k'k:k'k'k'k'k'k'k'k'k'k9^'k'k'k'k'k'k TRANSACT . PRG i^i<i'k'k-k'k'k-k'k'k'k'k-k'ki<::k-k'k'k-k-k-k 



* Module name....: TRANSACT. prg * 

* Author Park, Taeyong * 

* Date : Aug 20. 1987 * 

* Purpose : Record all kind of transaction into the * 

* Batch, Master file. * 

* Called by ; PMAIN.prg * 

* Modules called : TRBATCH.Drg,TRCAMCEL.prg,TRSTOCK.prg * 

* TRREQLST‘.prg,TRSTOKRD.prg,TRTURNIN.prg * 

* TRTUNLST.prg,TRTUMLC.prg * 

* Variales used. . : * 

* Public • <^TnrKM mtvpf Mnt<;T mct mrcomo * 

* Local, 

* 

7*c 7*c ★ ★ ★ :i«c ★ ★ ★ ★ :ilc ★ ★ :i«c ★ 7*c ★ :;•? :#c ★ 7*c 7^: 7*c ★ ★ ★ :i«c ★ ★ :i«c ★ ★ ★ :i*c ★ ★ :i*c ★ 



STOCKN, MTYPE, MCUST, MCI, MREQMO 

MCIl, MCI2, MHOST, MTYPEA, MTITLE, MISCM, MCDESCl, 
MCDESC2 



DO WHILE .T. 

Mcil = space(4i 
Mci2 = space(4; 

Mtitle = space(26) 

Mhost = space 00) 

Mcust = space0O) 

Mtype = space(2) 

Mtypea = space (26) 

Stockn = space(l6) 

Mcdescl = space(30J 
Mcdesc2 = space ( 30 ' 

Mreqno = space(16) 

Miscm = "T" 

CLEAR 

§ 1,15 TO 3,55 double 
(§ 4,1 TO 23,77 
@ 6,3 TO 21,38 
@ 5,4 TO 7,28 
@6,5 SAY SPACE (23) 

@ 6,41 TO 12,75 
@ 5,42 TO 7,59 
@6,43 SAY SPACE (16) 

@ 14,41 TO 21,75 
@ 13,42 TO 15,59 
@ 14,43 SAY SPACE (16) 

@2,17 SAY "Transaction 
@6,6 SAY " Type of transaction" 
@6,44 SAY "Source" 

14,44 SAY "Information" 



routine" 



§ 

@ 8,6 SAY " 1 ; Request for issue to Div" 

@ 9,6 SAY " 2 : Issue to customer from Div" 

@11,6 SAY " 3 : Request for turn-in to Div" 

@12,6 SAY " 4 : Receive from LSC" 

@ 14,6 SAY " 5 : Request for issue to LSC" 

@ 15,6 SAY " 6 : Request for turn-in to LSC" 

@17,6 SAY " 7 : Cancel RL to LSC" 

@18,6 SAY " 8 : Cancel RD to Div" 

@ 20,6 SAY " 9 : Query on transaction" 

@ 8, 42 SAY "Stock number : " 

@ 10,42 SAY " Customer : " 

SET COLOR TO N/W 

@8,56 SAY STOCKN PICT "9999-99-999-9999" 

@ 10,56 SAY MCI PICT "9999" 

SET COLOR TO 

@ 16,47 SAY "Today is " 

@ 16,60 SAY today 
@ 17,51 SAY "(Zulu : "+zulu+")" 

@ 19,47 SAY "Last VN : "+vnl 
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@ 20,44 SAY "Last Reqno ; "+reqnol 

d 22,12 SAY "Enter Selection from (1 - 9, or 0 to return) : 
STORE "" TO SEL 
d 22,59 SAY SEL 

* The following lines are for select loop 

i=0 

DO WHILE i=0 
i=INKEY() 
d 22,59 SAY "" 

IF UPPER(CHR(i))$"0123456789" 
d 22,59 SAY CHR(I) 

EXIT 
END IF 
i=0 
EMDDO 



DO CASE 



Case CHR(I) = '4' 

MTYPE = "IL" 

Mtitle = "Receive newstock from LSC" 

Mhost = "Receive from 
Mcust = "Send to 
Mtypea = mtitle 
Mci2 = "1500" 

d 8, 56 GET Stockn pict "9999-99-999-9999" 
@ 10,56 SAY Mci2 pict "XXXX" 

Read 

d 8, 56 SAY Stockn 
d 10,56 SAY Hci2 
DO TRSTOCK 

Case CHR(I) = '3' 

MTYPE = "TD" 

mtitle = "Request for turn-in" 
mhost = "Request from ; " 
mcust = " Send to : " 
mtypea = mtitle 
mci2 = "1500" 

d 8, 56 GET Stockn pict "9999-99-999-9999" 
d 10,56 GET Hcil pict "XXXX" 

Read 

d 8, 56 SAY Stockn 
d 10,56 SAY Mcil 
DO TRTURNIN 

Case CHR(I) = '1' 

MTYPE = "RD" 

Mci2 = "1500" 

d 8, 56 GET Stockn pict "9999-99-999-9999" 
d 10,56 GET Mcil pict "XXXX" 

Read 

d 8, 56 SAY Stockn 

d 10,56 SAY Mcil 

DO TRSTOKRD 

Case CHR(I) = '2' 

MTYPE = "ID" 

d 8, 56 SAY "XXXX -XX -XXX -XXXX" 

d 10,56 SAY "XXXX" 

DO TREAT CH 



Case 



CHR(I) = '5' 
MTYPE = "RL" 
Clear 



d 10,10 to 17,65 



d 12,15 SAY 
d 13,15 Say 
d 14,13 Say 
d 15,15 Say 
d 17,15 Say 



GET CHECK pict 
Read 



Your selection (RL) must be resulted from other" 
type of transaction. It means this module " 
is conducted automatically. However you may" 
continue this if you eagerly want to do" 

Do you want to continue(Y/N)? " ; 



m1 .. 
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If CHECK= "Y" 

DO TRREQLST 
Endif 
Loop 

Case CHR(I) = '7' 

MTYPE = "CL" 

0 8, 56 GET Stockn pict "9999-99-999-9999" 
0 10,56 GET Moil pict "XXXX" 

Read 

0 3, 55 SAY Stockn 
0 10,56 SAY Mcil 
Do TRCANCEL 

Case CHR(T) = '6' 

HTYPE = "TL" 

0 8, 56 GET Stockn pict "9999-99-999-9999" 
0 10,56 SAY Mcil pict "XXXX" 

Read 

0 8, 56 SAY Stockn 
0 10,56 SAY Mcil 
Do TURMTOLC 

Case CHR(I) = '8' 

MTYPE = "CD" 

Case CHR(I)= '9' 

MTYPE="QUERY" 

Do Tracking 

CASE 1=27 .OR. CHR(I) = 'O' 

? Chr(7) 

CLEAR 

EXIT 

ENDCASE 



ENDDO 

RETURN 

* * Eof: Transact. prg * 



3*C 



b. TRSTOCKRD 

TRSTOCKRD . PRG i^'ki^'k'kikik'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-kir 

★ 7 *r ^ ^ yc 5 *: yc ^ 5 *c ^ ^ ^ 5 *c 7 *c 5 *c ^ ^ ^ 7 *r 5 *c 5 *r 5 *c A ★ ^ 7 *f 5 *: ^ 2 *c ^ ★ 3 *c A ^ ^ ★ 7 *r ^ ^ ^ 7 *: ★ ^ ★ 7 *: A ^ A ★ 7 *r ^ 5 *r 7 *: A ★ 3 *c 



* Module name....; TRSTOKRD.prg 

* Author ; Park, Taeyong 

* Date : Aug 28. 1987 

* Purpose : Record request for issue transaction from 

* customer into batch file. 

* Called by ; TRANS ACT I ON. prg 



* Modules called ; * 

* Variales used. . : * 

* Public . : * 

* Local. . ; * 

•k k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Select A 

Use BATCH index SNCIBAT,CIBAT 
S 0 X 6 c ti. R 

Use PROPERTY index SNPROPER 
Select C 

Use ASL index INASL 
Select D 

Use CUSTOMER index CICUST 
Select B 

Store "X" to batcheck, checks 
Xcheck = .T. 

Do while Xcheck 
Clear 
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@ 10,15 to 14,65 

@ 11,17 Say " Customer Code : " Get Mcil Piet "9999" 

0 13,17 Say " Stock Number : " Get Stockn pict "9999-99-999-9999" 
Read 

If Mcil = " " .OR. stockn=" " 

Exit 
Endif 
Select D 
Seek mcil 
If .MOT. foundO 

0 11,16 clear to 13,64 

0 11,17 Say "Not found "+Mcil+" code customer " 

0 13,17 Say "Do you want to add this as customer? (Y/N) "; 

Get checks pict "!" 

Read 

If checks = "Y" 

Hci=Mcil 
Do addeust 

Store edese to Mcdescl 
Loop 

Else 

Loop 

Endif 

Else 

Store edese to Mcdescl 
S 6 1 6 C tl 0 

StockN = Upper (StockN) 

Seek StockN 
If .NOT. foundO 
Clear 

Store "X" to checks 

0 13,10 say stockn + " is Not found in your property book" 
0 15,20 Say " Is this the INITIAL demand ? " get checks 
Read 

checks = upper(checks) 

If checks = "Y" 

Store 0 to Mcost 
Else 

Clear 

0 15, 20 say "Check stock number and try again !" 

Wait 

Loop 

Endif 

Else 

mcost = unitcost 

Endif 

Endif 

Select A 
Append Blank 

Replace Cl with MCIl, Type with Mtype, SN with StockN,Misc with .T. 
Replace Unitcost with Mcost, Date with today. Regno with Mreqno 
Do while .T. 

Set format to batch 
Read 

If batcheck = "Y" 

Set format to 

Replace REQNO with mreqno 

Stockn = space(16) 

Exit 

Endif 

Enddo 

Enddo 

Close Databases 
Release all 
Return 

* * Eof TRSTOKRD.prg * * 
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c. TRBATCH 



•k-k-k9^-k'k'k9^'k9<:'k9<:'k'k'k^-k-k-k-k TRBATCH . PRG ^■k-k-k-k-k-k-k'k^^'k'krk'kTr-k-k-k-k-^-k^'kik'k-k-k 



•k 

•k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



Module name. 

Author 

Date 

Purpose . . . . . 



Called by 

Modules called 
Databases used. 
Variales used. . 

Public . 
Local. . 



TRBATCH. prg 
Park ,Taeyong 
Aug 28. 1987 

This is the module for performing the 
BATCH file which contains the records 
of routine transactions 
TRANSACT. prg 
ISSUE. prg 

MASTER , PROPERTY , ASL , BATCH , TEMPBAT 
REQNOl, ZULU 

MQTY holds unit quatity of a given stock item. 
MTOTAL holds total amount of item which is written 
on the report so far. 

MUNITC holds unit price of a given item. 

STOCKM holds stock number 

LINECTR holds the number of the line written so 
N holds how man^ iteration has happend 



k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 

far* 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk^kkkkkkkkkkkkkkkkkk^kkkkkkkkkkkkkkkkk 



Select A 

Use MASTER index SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select C 

Use ASL index INASL 
Select B 

Set relation to SN into C 
Select A 

Set relation to SN into B 
Select E 

Use Batch index SNCIBAT,CIBAT 

Create a temporary file for stock number and type of transaction. 

is same as given condition 

Total on SN to TEMPBAT for TYPE="RD" 

Use TEMPBAT 
Go top 

* If nothing has happened the day, give information and return 

If Eof() 

@ 10,14 Clear to 14,65 
@ 10,14 to 14,65 

d 11,17 Say "Your Batch file is empty -> Go and take rest !" 
d 13,19 Say "Press Any key to go main menu" 

Wait " " 

Release all 
Close databases 
Erase TEMPBAT. dbf 
Return 
Endif 

Index on SN to TEMPBAT 
Use TEMPBAT index TEMPBAT 
Set relation to SN into PROPERTY 
Store "X" to mprint, checks 
Store 1 to PAGECTR, LINECTR, N 
Store 0 to TOTAL, MTOTAL, Z 
Go top 

Do while .NOT. Eof() 

Clear 

d 10,14 clear to 14,65 
@ 10,14 to 14,65 

d 11,27 say "Wait while it is cession " 

Store SN to STOCKN 
Store QTY to NQTY 
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store B->nm to Mnm 
Store B->unit to Munit 
Store B“>unitcost to MUNITC 
Store B->ONHAND to HONHAND 
Store MONHAND - NQTY to XOMHAND 
If XONHAND < C->ROP 

* Check whether the master file already has an order 

* of the item or not, if yes, check the amount so that 

* can do action necessary. 

2 g 3. 6 c t A 

Seek STOCKN + "1500RL" 

If foundO .AND. .NOT. POSTED 

Store QTY + XONHAND to MONHAND 
Else 

Store XONHAND to HONHAND 
Endif 
Select E 
Endif 

If HONHAND < C->ROP 
If mprint = "X" 

Do while .T. 

@ 10,14 clear to 14,65 
0 10,14 to 14,65 

0 11,27 say "Ready printer? " get MPRINT pict "!" 

Read 

*.Set printer ready to print out, and console off so that 

* can be being conducted without disturbance. 

If mprint = "Y" 

Set print on 

0 13,20 Say "Wait while printing " 

Set console off 
Exit 
Endif 
Enddo 
Endif 

If LINECTR=40*(N-1)+ 1 
If LINECTR = 1 

Store Val(Substr(REQN01,8,4)) to MREQNO 
MREQNO = lOOOOO+MREQNO+1 

REQN01= "1500QM"+"-"+substr(str(MREQNO) ,7,4)+"-"+ZULU 
Endif 

7 I 
7 I 
7 > 

7 I 

?? ' 

? I 

1 

? ' ' To 
? ' F rom 

7 I 
7 I 

? ' No 
?? 'Unit 

Store pagectf + 1 to pagectr 
Endif 

Store (C->RO) -MONHAND to MQTY 
Store MQTY * MUNITC to MTOTAL 
Store TOTAL + MTOTAL to TOTAL 
Store linectr to Z 

? Str(Z,4)+' '+sn+' ' +rtrim(mnm)+space (15 - LEN(rtrim{mnm) ) ) 

?? ' '+ munit+' ' +str (mqty)+str (munitc) 

?? str (munitc*mqty) 
linectr = linectr + 1 

* Record the action on the master file. 

Select A 
Append Blank 

Replace SN with StockN,Ci with "1500" 

Replace Reqno with reqnol,Qty with MQty,Type with "RL" 



REQUEST FOR ISSUE' 

Page ' + str (pa(^ectr,2) 

Date : ' +Dtoc(date( ) ) 

: The 3333 Logistics Support Command' + Mcdescl 
: The 150 Infantry Division ' 

Request No : '+Reqnol 

Stock number Description 
Quantity Price Total' 
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Replace Unitcost with munitc,Misc with .T.,Date with today 
Replace Posted with .F. 



Select E 

If linectr=40*N + 1 

•> I 



?? I I 

? ' ' 

? ' ' 

? 'Material Management NCO : ' 

?? 'Date : / / ' 

? 'Material Management Officer : ' 

?? 'Date : / / ' 

Eject 
N = N + 1 
Endif 
Endif 
Select E 
Skip 
Enddo 

* Print only when heading printed 

If linectr > 1 

? ' ' 

?? ' ' 

? ' ' 

?? ' Grand Total :$' + str(total) 

■> I I 



7 

7 

77 
7 ' 



Matrial Management NCO : 

' Date : / / 

I 



? 'Material Management Officer : 

?? ' Date : / / ' 

Eject 

Endif 



If MPRINT ="Y" 

^ 

Set print off 
Set console on 
Endif 

* 

Close databases 
Erase tempbat.dbf 
Do TRISSUE 
Release all 
Close databases 
Return 

* 



Reset printer off and console on 
possible to communicate with the 



Erase the temporary file which is 



* Eof BATCH. prg * 



so that make it 
user. 



no more useable. 



"k 



d. TRISSUE 



kkkkkkkkkkkkkkkkk'kkk TRISSUE . PRG kkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'kk'kkk 



Module name....: TRISSUE. prg 

Author Park, Taeyong 

Date : Sept 2. 1987 

Purpose : This is the issue module for generating 

Receipt to the customer correspondinig 
to request for issue. 

Called by : Batch. prg 

Modules called : none 

Variales used. . ; 

Public . : Vnl , 

Local. . : Total, Mtotal,Z,Mexpend,Mfundoh 
Databases used.: MASTER, PROPERTY, CUSTOMER, BATCH, STOCKOUT 



k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 
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Select A 

Use MASTER index SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select C 

Use STOCKOUT index STOCKOUT 
Select D 

Use CUSTOMER index CICUST 
Select A 

Set relation to SM into B 
Select E 

Use BATCH index CIBAT , SMCIBAT 
Set relation to SM into B 

If Eof() 

Clear 

@ 15,25 SAY "Lucky today! Go and take a rest" 

? Chr(7) 

x=o 

Do v;hile x<35 
X=X+1 
Enddo 

Close databases 
Return 
Endif 

Store "X" to Mprint 
Do while .T. 

@ 10,14 clear to 14,65 
@ 10,14 to 14,65 

@ 11,25 Say 'Ready Printer ? ' Get mprint pict "!" 

Read 

@ 11,42 Say mprint 
If Mprint='*Y' 

Set print on 

d 13,20 Say "Printing " 

Set console off 

Store 0 to total, mtotal,Z,Mfundoh,Mexpend 
Store 1 to pagectr, linectr ,N 
Exit 
Else 

Clear 

Set color to N/W 

@ 13, 20 Say "You Pressed "+mprint 
Set color to 

@15, 20 Say "Do you want to finish the job(Y/N)?" Get check 
Read 

If check = 'Y' 

close databases 
Return 
Else 

Store "X" to Mprint 
Loop 
Endif 
Endif 
Enddo 
Go top 

Do while .NOT. eof() 

If deleteO 
Skip 
Loop 
Endif 

Store ci to mci 
Select D 
Seek mci 

Store Expend to Mexpend 
Store Fundoh to Mfundoh 
Store cdesc to mcdescl 
Select E 

Do while Type="RD" .AND. ci = mci 



100 



If deleteO 
Skip 
Loop 
Endif 

Store type to mtype 
Store b->unitcost to mcost 
Store b->onhand to fonhand 
Store qty to Eqty 
Store tonhand-hqty to fonhand 
store reqno to mreqno 
Store sn to stockn 
If linectr=40*(N-l)+l 
If linectr = 1 

Store Val(Substr(vnl ,8,4) ) to Mvn 
Hvn=100000+Mvn+1 

Vnl="1500QM"+"-"+Substr (str (Mvn) ,7 ,4)+"-"+zulu 
Endif 



7 

7 



I 

I 



ISSUE LIST' 

Page ' + str(pagectr,2) 
^Date : ' +Dtoc(date ( ) ) 



From : '+ 'The 150 Infanry Division' 



? ' 

? ' 

? ? ' 
7 1 


To : mcdescl 

1 


Vocher No: 

1 


'+vnl 


? 'No 


Stock number 


Description' 




?? ' 


Onhand Unit Quant \ 


^ Price 


Total 


store 


pagectr + 1 to paged 


:r 




Endif 







If fonhand < 0 
? chr(7) 
clear 

© 15,20 Say "You have stockout item "+stockn 
© 17,20 Say "This will be added to stockout file" 
num = 0 

Do while num<30 
num=num+l 
Enddo 

Store linectr to Z 

? Str(Z,2)+' '+sn+' ' +rtrim(b->nm)+space( 15 -LEN(rtrim(b->nm) ) ) 
?? '■+' SORRY! Delay delivery' 

Linectr=linectr+1 
Select C 
Append Blank 

Replace sn with stockn, ci with mci, reqno with mreqno 
Replace qty with eqty,unitcost with mcost 
Replace outdate with today, posted with .F.,Type with mtype 
Select E 
Delete 
Loop 
Endif 

If fonhand >=0 

Store linectr to Z 

? Str(Z,2)+' '+sn+' ' +rtrim(b->nm)+space(15 -LEN( rtrim(b->nm) ) ) 

?? ' ' +str (b->onhand)+ ' '+ b->unit 

?? str (qty)+str (b->unitcost)+str (b->unitcost*qty) 

linectr = linectr + 1 

Store b->unitcost*qty to mtotal 

Store total+mtotal to total 

Select A 

Append blank 

Replace sn with stockn, ci with mci,vn with vnl,; 
reqno with mreqno, type with mtype 
Replace qty with eqty 

Replace unitcost with mcost, Misc with .T.; 
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Date with today, Posted with .1. 

Select B 
Seek stockn 

Replace onhand with fonhand, tvalue with fonhand*unitcost 
Select E 
Delete 
Skip 
Endif 

If linectr=40*N+l 

? ' ' 

I I 



? ? 
■? 



Grand Total 

I 



'+ str(total) 



? 'Material Management NCO 

?? 'Date : 7 / ' 

? 'Material Management Officer 

?? 'Date : 7 / ' 

Eject 
M = N + 1 
Endif 



Enddo 

If linectr>l 



.AND. .NOT. linectr=40N+l 



■> I 

?? ' 

7 ’ I 
?? ' 

7 I 
7 I 

? 'Matrial Management NCO : 

?? ' Date ; / / ' 

7 I I 

? 'Material Management Officer 



Grand Total :$' + str(total) 



I 



Date 
Store 1 to 
store 0 to 
Eject 



1 .^ 1 . 

agectr , linectr ,N 
otal.mtotal 



Endif 
Select D 
Seek mci 

Replace Fundoh with Mfundoh-mtotal 
Replace Expend with Mexpend+mtotal 
Select E 
Enddo 
Select E 
Pack 

Store space{4) to mci 
Release all 
Set print off 
Set console on 

* * Eof TRISSUE.prg 



e. TRREQLST 



'k’k-k’k'k’k'k-k-k-k-k-k-k-k'k-k-k-k-k’k-k-k’k’k TRREQLST . PRG 'k'k:k’k:k-k:k:k-k'k:k:k-k:k’k:k:k:k:k:k’k:k:k-k-k-k'k-k 



* Module name....: TRReqlst.prg * 

Author : Park, Taeyong * 

Date : Sept 3. 1987 * 

Purpose This is the Transaction module for request * 

for issue to the higher logistics command * 

in force. * 

Called by : Transact. prg * 

Modules called : None * 
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S 6 X 0 C t> A 

Use MASTER index SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select D 

Use CUSTOMER index CICUST 
Select A 

Store "X" to CHECK 

Store 0 to MQTY , TOTAL , MTOTAL 

Store Val(Su6str ( reqnol , 8 ,4) ) to Mreqno 

Mreqno = 100000+Mreqno+l 

Reqnol= "1500QM"+"-''+substr(str (Mreqno) ,7 ,4)+"-"+zulu 

Do while .T. 

Clear 

@ 10,15 to 14,65 

0 11,17 Say " Customer Code : " Get Mcil Piet "9999" 

0 13,17 Say " Stock Number : " Get Stockn pict "9999-99-999-9999" 

0 15,25 Say "Leave blank any space to exit." 

Read 
Select D 
Seek mcil 
Do Case 

Case Mcil = " " 

Exit 

Case .NOT. found() 

0 11,16 clear to 13,64 

0 11,17 Say "Not found "+Mcil+" code customer " 

0 13,17 Say "Do you want to add this as customer? (Y/N) " ; 
Get check pict "1 " 

Read 

If check = "Y" 

Do addeust 
Store "X" to CHECK 
Store edese to Mcdescl 
Else 

Loop 
Endif 
Case FoundO 

Store edese to Mcdescl 

EndCase 
S 6 X 6 c ^ Q 

StockN = Upper (StockN) 

Seek StockN 
Do case 

Case stockN = " " 

Exit 

Case .NOT. found() 

Clear 

0 13,10 say stockn + " is Not found in your property book" 
0 15,20 Say "Is this the INITIAL demand? " GET CHECK Pict " 
Read 

If check = "Y" 

Store 0 to Mcost 
Store "X" to CHECK 
Else 

Clear 

0 15, 20 say "Check stock number and try again !" 

Wait 
Loop 
Endif 
Case foundO 

Store UNITCOST to MCOST 
Store ONHAND to MONHAND 
Store NM to MNM 
Store UNIT to MUNIT 

Endcase 



103 



Select A 
Append Blank 

Replace Cl. with MCIl, Type with Mtype, SN with StockN,Misc with .T. 
Replace Unitcost with Mcost, Date with today, Reqno with Reqnol 
Do while .T. 



Clear 






2 , 

3, 

3, 

5, 

6 , 
8 , 
9, 
9, 
9, 



9 
43 
56 
7 
7 
6 
6 
34 
50 
19 
32 
19 
32 
34 
41 
19 
32 
50 
62 
19 
32 
30 
4 

1 , 6 

7, 5 
10, 5 

8, 32 
Read 

If CHECK 



@ 12 , 
@ 12 , 
@ 14, 
@ 14, 
@ 16, 
@ 16, 
@ 18, 
@ 18, 
@ 18, 
@ 18, 
@ 20 , 
@ 20 , 
@ 23, 
@ 4, 

@ 

@ 



"Request for Issue" 

"Today is " 

Today 

" To: "+ mcdescl 

"From; The 1500 Infantry Division" 
"Type of transaction ; " 

"Request for Issue(RL)" 

SAY "Request Number:" 

GET REQNOl PICTURE "9999 !! -9999-9999" 

SAY "Stock Number-." 

MASTER->SN PICTURE "9999-99-999-9999" 
"Description :" 

MNM 

"Unit :" 

NUNIT FUNCTION "!AAA" PICTURE "KXXX" 
"Quantity 
MQTY Piet "99999" 

"Reusable? : " 

MASTER->Hisc 
" Price : " 

GET NCOST PICT "999999.99" 

SAY "Is this record correct : 

TO 21, 71 
TO 3, 40 
TO 7,70 
TO 10, 70 
TO 9, 32 



SAY 

SAY 

Say 

SAY 

SAY 

SAY 

SAY 



GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 



GET CHECK pict "!" 



II Y'l 

Replace QTY with Mqty 
Store to CHECK 
Exit 
Endif 
Enddo 

0 10,12 clear to 14,63 
0 10,12 to 14,63 

say "Ready printer? " 



0 11,23 
Read 
If check = "Y" 

Set print on 

0 13,20 Say "Wait while printing 
Store "X" to CHECK 
Set console off 
Endif 

Store 1 to pagectr ,linectr ,N 
Store 0 to total, mtotal ,Z 
If linectr<=l 



GET CHECK pict "!" 



7 

7 

7 

7 

7 7 

7 

7 

7 

7 

7 

7 

7 7 

Endif 
Store 
Store 
Str( 



REQUEST FOR ISSUE' 

Page ' + str(pagectr ,2) 



To 

From 



No 

'Unit 



'+ Mcdescl 
The 150 Infantry Division 



Stock number 
Quantity 



Request No : '+Reqnol 

Description ' 
price Total' 



7 

7? 



I 



(Mqty*Mcost) to Mtotal 
linectr to Z 

Z,4)-t-' ' -t-sn-i- ' ' +rtrim(Mnm)-t-space( 15 - LEN(rtrim(Mnm) ) ) 
-I- Munitt' '-tstr(mqty) + str(Mcost) 
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?? str(Mcost*mqty) 

Store Linectr+l to linectr 
Store Mcos.t*qty to mtotal 
Store total+mtotal to total 
@ 15, 10 clear to 17,65 
0 15,10 to 17,65 

0 16, 15 Say "Do you have more to request(Y/N) ? 
Read 

If Check="Y" 

Store "X" to CHECK 
Store 0 to Mqty 
Store space(16) to Stockn 
Loop 
Endif 

? ' ' 

? ? ' ' 
p ’ I i 

?? ' Grand Total + str(total) 

7 1 I 



? ' ' 

? 'Hatrial Management NCO ; 

?? ' Date : / / ' 

? ' ' 

? 'Material Management Officer ; 

?? ' Date : / / ' 

Eject 

Store space (16) to Stockn 
Enddo 
Clear 

Set print off 
Set console on 
Close databases 
Release all 
Return 

* * Eof TRREQLST.prg * 



Get Check Piet " ! " 



I 



I 






f. TRSTOCK 



*:*:>::A:**7^:****7^:***7^:****7^: TRSTOCK. PRG * t': t'c jk: * jk: * * * * jkr 



Module name, 

Author 

Date 

Purpose . . . . . 



Called by 

Modules called 
Variales used. . 

Public . 
Local . . 
Databases used 



* 

* 

* 

* 

* 

* 

•k 
k 
k 
k 
k 

kkkkkkkkkkkkkkkkkkkkkkk 



TRSTOCK .prg 
Park, Taeyong 
AUG 18. 1987 

Record item received from higher command 
on the master file. If needed add to the 
ASL or PROPERTY file 
TRANSACT. prg 
None 

Vnl 

Docheck , check , f check , Dcheck , mqtys , smqtys . . 



MASTER , PROPERTY , ASL , CUSTOMER 

kkkkkk-Kkkkkkkkk-kkkk-kkkkkkkkk 



k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Select A 

Use Master INDEX SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select C 

Use ASL index INASL 
Select D 

Use CUSTOMER index CICUST 
store 1 to M 

Store "X" to check, fcheck, dcheck 
store 0 to mqtys , smqtys , mqty ,mlqty,Tqty 
Store Val(Substr(Vni ,8,4) ) to mvnl 
mvnl = 100000+mvnl+l 
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Vnl = "1500QM-"+Substr(str(mvnl) ,7,4)+"-"+Zulu 
Docheck = .T. 

Do while DOCHECK 
Clear 

* Check Your customer, or add him 

Do while .T. 

@ 10,15 to 14,65 

d 11,17 Say " Customer Code : " get mcil pict "9999" 
d 13,17 Say " Stock Number : " get stockn pict; 
"9999-99-999-9999" 

d 15,20 Say "Leave BLANK stock number to exit" 

Read 

Seek mcil 
If foundO 

Hcdescl = cdesc 

Mcdesc2 = "The 150 Infantry Division" 

Exit 

Else 

(3 11,16 clear to 13,64 

@ 11,21 Say "Not found "+mcil+" code customer" 
d 13,21 Say "Do you want to add the customer? " get 
check pict " ! " 

Read 

If check = "Y" 
mci = mcil 
Do addcust 

Store cdesc to mcdescl 
Endif 
Endif 
Enddo 

* Check the new item initial or requested one. 

Select B 

StockN = Upper(StockN) 

Seek StockN 
Do case 

Case StockN = " " 

Docheck = .F. 

Loop 

Case .NOT. found() 

@ 10,15 to 14,65 

@ 11,21 say " Not found in your property book" 

@ 13,21 say " Is this the INITIAL supply?" get; 
check pict " ! " 

Read 

If check = "Y" 

Append blank 

Replace SN with StockN,DATE with Today 
Store 0 to unitcost,onhand 
Set format to PROP 
Read 

If fcheck = "Y" 

Set format to 

Store unitcost to mcost 

Store onhand to monhand 

Replace TVALUE with (mcost*monhand) 

Endif 

d 10,15 clear to 14,65 
d 10,15 to 14,65 

d 12,17 Say "Is This "+stockn +; 

" ASL item? " get check pict "!" 

Read 

If check = "Y" 

Select C 
Seek stockN 
If found() 

d 11,14 clear to 13,64 
d 11,17 say SN+" is Already exist!" 
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0 13,17 Say "Do you want to ; 
change?" get check Piet "!" 

Read 

If check = "Y" 

Replace SN with Stockn 
Replace Date with Date() 

Do while .1. 

Set format to ASL 
Read 

dcheck= upper (dcheck) 

IF dcheck = "Y" 

Close format 
Exit 
Endif 
Enddo 
Endif 

Else 

Append blank 

Replace SM with StockN 

Replace date with date() 

Do while .1. 

Set format to ASL 
Read 

If dcheck = "Y" 

Close format 
Exit 
Endif 
Enddo 
Endif 
Endif 

0 10,15 clear to 14,65 
0 10,15 to 14,65 

0 12,25 Say "You did good job. Now try gain!" 

0 13,25 Say " Press Y[ to continue " get ; 

check Piet "!" 

Read 

If check = "Y" 

Loop 

Endif 

Else 

0 10,15 clear to 12,65 
0 10,15 to 14,65 

0 11,25 Say "Sorry no way to go. Try again! " 

0 13,25 Say " Press Y| to continue " get ; 

Check pict " ! " 

Read 
Loop 
Endif 
Case foundO 

mcost = unitcost 
monhand = onhand 

Endcase 
Ss Isc t A 

store stockn+"1500"+"RL" to mstockn 

Sum QTY for SN=stockn .AND. type="RL" .AND. .NOT. posted to Tqty 
store "X" to zcheck 
Do while .T. 

Append Blank 

Replace Cl with MCIl, Type with Mtype 
Replace SN with StockN,qty with Tqty 
Replace Unitcost with Mcost 

Replace Date with today, misc with .T., posted with .T. 

Replace vn with vnl 
Set format to mast 
Read 

zcheck = upper(zcheck) 

If zcheck = "Y" 
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close format 
Store QTY to MIQTY 
Store Hlqty to MQTY 
Exit 
Endif 
Enddo 
Go top 

Seek mstockn 

* If requested item, post it 

If foundO 

Do while .NOT. Eof() .AND. type="RL" .AND. SN=STOCKN 
If posted 
skip 
loop 
Endif 

Store REQNO to MREQNO 
Store DATE to MDATE 
Store UNITCOST to NICOST 
Store QTY to CQTY 
Do case 

Case MIQTY-CQTY < 0 

Replace vn with vnl, posted with .T. 
Replace QTY with MIQTY 
Append Blank 
Replace sn with stockn 
Replace reqno with mreqno 
Replace date with mdate 
Replace unitcost with mlcost 
Replace qty with cqty-mlqty 
Replace posted with .F. 

Replace ci with "1500", type with "RL" 
Replace misc with .T. 

Exit 

Case M1QTY-Cqty>=0 

Replace vn with vnl, posted with .T. 
Store MIQTY-CQTY to MIQTY 
If M1QTY=0 
Exit 
Endif 

Endcase 
Skip 
Enddo 
Select B 
Seek STOCKN 

Replace ONHAND with MONHAND+MQTY 
Replace TVALUE with (MONHAND+MQTY) *MC0ST 
Endif 

*.. Check If it a stockout refill item. 

Select F 

Use STOCKOUT index STOCKOUT 
Set relation to sn into property 
Seek stockn 
If Eof() .OR. Bof() 

Stockn = space(l6) 

Select D 
Loop 
Endif 

Store 'X' to mprint 
Do while .T. 

@ 10,15 clear to 14,65 
@ 10,15 to 14,65 

d 11,17 Say " You have a delayed delivery." 
d 13,17 Say 'Ready Printer ? ' get mprint pict "!" 
Read 

If mprint = 'Y' 
set print on 

d 13,17 Say "Printing " 

Set console off 
Exit 
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Endif 

Enddo 

Do while .NOT. Eof() .AND. SN=STOCKN 
If POSTED 
skip 
loop 
Endif 

Store REQNO to MREQNO 
Store Cl to MCI 
Store OUTDATE to MDATE 
Select D 
Seek MCI 

Store cdesc to mcdescl 



Select F 
? ' ' 

? ' ' 

? ' ' 

7 t 




ISSUE LIST' 


? ? ' 
7 1 




Page ^ ;1 ' 


? ' From : 


'+ 'The 150 


Infanry Division' 


?? ' 




Date : '+DT0C(date()) 


r ' To : 


'+ mcdescl 



■? I I 



??^' Request ^Number : '+mreqno 

? 'No Stock number Description ' 

?? ' Onhand Unit Quantity price ' 

?? ' Total' 

? ' 1 '+sn+' ' +rtrim(b->nm) 

?? space(15 - LEM( rtrim(b->nm) ) ) 

?? str (b->onhand)+ ' '+ b->unit 

?? str(qty) + str(b->unitcost)+str (b->unitcost*qty) 
Store b->unitcost*qty to total 



? ' ' 

I __i 

? ' ' 

?? ' Grand Total :$' 

?? str(total) 

■> I I 



? ' ' 

? ' Matrial Management NCO .* ' 

?? ' ' 
?? ' Date ; / / i 

? ' ' 

? 'Material Management Officer : ' 

?? ' ' 

?? ' Date : / / ' 

Eject 

Store qty to mqtys 
Replace posted with .T. 

Replace refilldate with Today 



Select D 
Seek mci 

Replace expend with expend-total 

Store expend to mexpend 

Replace fundoh with fundoh-mexpend 



Select B 

Replace onhand with monhand -mqtys 
Replace tvalue with (monhand-mqtys)*mcost 

Select A 
Append blank 

Replace SN with STOCKN, Cl with MCI, QTY with MQTYS, TYPE with "RD" 
Replace REQNO with MREQNO, UNITCOST with MCOST, POSTED with .T. 
Replace DATE with MDATE, MISC with .T., VN with VNl 



Select F 
Skip 
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Enddo 

Set print off 
Set console on 
Stockn = space (16) 

Select D 
Enddo 

Close databases 
Clear 

* * Eof TRSTOCK.prg * 



g. TRTURN-IN 

^■k^-k^-k:k-k-k^-k-k‘k-k^-k-k-k-k TRTURNIN • PRG ’k-k-k-k-k-k-k-k-k-k-K-k'k-k^'k^^^^'k^'k-k-k-k^-k-kiK^-k 

9r-k'ki<:'k:k‘k'k:k^-k:k^-k:k-k:k-k-k9^i<::k-k:k-k:k:k-k-k^-k:k^-ki^-k:k-k-k:ki<::k^-k-k-k:ki^-kiK-k:k^-k^ 

^ Proaram. . : Turn-in. prg ^ 

^ Author...: PARK, Taevong ^ 

^ Date : Sept 2, 1$87 

^ Notes....; Record Request for turn-in from Customer into ^ 

^ Master ana property book. ^ 

:)•? A :*r :A: :A: :A: A ^ A X ?T X :A: :<f A A A X A X :A: ^ :;Af A A A ^ A A A ^ ^ A :*r A ^ :A: :A: ^ :A: :A: :A: A :A: A ^ ^ :A: A 

S e i e c t 8 

Use PROPERTY index SNPROPER 

C P 1 p p f p 

Use ASL index IMASL 
Select D 

Use CUSTOMER index CICUST 
Select E 

Use BATCH index SNCIBAT,CIBAT 

Store "The 150 Infantry Division" to Mcdesc2 

Store "X" to checks , fcneck,Zcheck 

If mcil = " " 

Close databases 
Return 
Endif 

Xcheck = .T. 

Do while Xcheck 

Store mcil to custm 
Do while .T. 

Clear 

0 10,15 clear to 14,65 
0 10,15 to 14,65 

0 11,17 Say " Customer Code ; " Get mcil pict "9999" 

0 13,17 Say " Stock Number ; " Get stockn ,• 

Pict "9999-99-999-9999" 

0 15,20 Say "Leave blank Stock Number to Exit" 

Read 
Select D 
Seek mcil 
If .NOT. foundO 

0 16,17 Say "Not found "+mcil+" Code customer...." 

0 17,17 Say " Please check the code, or add customer first" 
Store "X" to ANS 
0 16,15 clear to 18,70 

0 17,17 Say "Do you want Add the customer Now? " ; 
get ans pict "!" 

Read 

If ANS = "Y" 

Store mcil to mci 
Do ADDCUST 
Endif 
Else 

Store cdesc to mcdescl 
Exit 
Endif 
Enddo 

If mcil <> custm 
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@ 10,15 clear to 14,65 
0 10,15 to 14,65 

0 12,20 Say "This data will not be added 
?? Chr(7) 

N = 0 

Do while N < 35 
N=N+1 
Enddo 
Exit 
Endif 
Select B 

StockM = Upper (StockN) 

Seek StockN 
Do case 

Case StockN = " " 

Select E 
Pack 

Xcheck = .F. 



Case .NOT. found() 

Clear 

0 13,10 say stockn + " is Not found in your property book" 
0 15,20 Say "Please check STOCK NUMBER and try again" 

Wait 

Case foundO 

mcost = unitcost 
monhand = onhand 

Select E 
Append Blank 

Replace Cl with MCIl, Type with Mtype, SN with StockN, ,• 
Unitcost with Mcost, Date with Today, Reqno with Mreqno 
Replace POSTED with .F. 

Do while .T. 

Set format to turnin 
Read 

zcheck = upper (zcheck) 

If zcheck = "Y" 
mqty = qty 

Store Reqno to mreqno 
Set format to 
Exit 
Endif 
Enddo 
Clear 

Stockn = space(16) 

Endcase 

Enddo 



Do TRTUNLST 
Close Databases 
Release all 
Return 

* * Eof turnin. prg * 



h. TRTUNLST 



'k’k'k'k'k'k’k'k’k'k’k'k'k’k'k’k'k:k'k'k’k'k'k TRTUNLST • PRG 

* Program.: TRTUNLST. prg * 

Park, Taeyong 
Sept 2, 1987 



Report generate pro 



* Author. . 

* Date .... 

* Notes ... ^ 

'k'k'k'k'k'k'k-k'k'k'k’k'k’k^'k:k'k'k'^'k^'k'k'k:ki('k^'k'k 

Clear 
Select E 



gram, called from TRTURNIN.prg 

^-k'k-k'k:k'k'k'k-k-k’k'ki^'k'k'k'k'k-k-k-k'k'k'k'k'k%:k^' 



■k 
k 
k 

kkkkkkkkkk 
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Set relation to sn into property 

Store 'X' to mprint 
Store 0 to total, mtotal,Z 
Do while .T. 

Clear 

0 10,15 to 15,65 

0 12,25 Say 'Ready Printer ? ' get mprint pict "!" 

Read 

If mprint = 'Y' 

Set print on 

0 14,25 Say "Printing " 

Set console off 
Exit 
Else 

0 15, 15 Say "Be ready printer ! " 

Wait 

Endif 

Enddo 

Store Val(substr(Vnl ,8,4) ) to mvn 
Hvn = 100000+mvn+l 

Vnl = "1500QH-"+substr(str (mvn) ,7 ,4)+"-"+Zulu 
Store 1 to pagectr, linectr ,N 
Go top 

Do while .NOT. eof() 

If type = mtype .AND. ci=Custm 
If .NOT. posted 

If linectr=40*(N - 1) + 1 

Hvn = Val(Substr(Vnl ,8,4) ) 

Mvn = 10000+mvn+l 

Vnl = "1500QM-"+Substr(str(Mvn) ,7 ,4)+"-"+Zulu 

? ' ' 

? ' ' 

? ' ISSUE LIST' 

??^' (Turn-In) ^ Page ' + str(pagectr,2) 

? ' From : The 150 Infantry Division ' 

? ? ' ' 

?? ' Date : '+DT0C(date() ) 

? ' To : '+mcdescl 
? ' ' 

?? ' Voucher No ; ' +Vnl 

? ' ' 

? ' No Stock number Description ' 

?? ' Quantity Unit price Total Reuasble' 

Store pagectr + 1 to pagectr 
Endif 

Store linectr to Z 
If misc 

? Str(Z,4)+' '+sn+' ' +rtrim(b->nm)+space (15-LEN( rtrim(b->nm) ) ) 
?? ''+ str(qty)+''+ b->unit 

?? str(b->unitcost) + str (b->unitcost*qty)+ ' ' 

?? Misc 

Store b->unitcost*qty to mtotal 
Store total+mtotal to total 
Replace posted with .T. 

Store B->onhand - qty to monhand 
Select B 

Replace onhand with monhand 
Replace tvalue with monhand*unitcost 
Select E 
Else 

? Str(Z,4)+' '+SN+' ' +rtrim(b->nm)+; 
space (l5-LEN(r trim (b->nm) ) ) 

?? ' '+str(qty)+' '+D->unit+' ' 

?? misc 

Replace posted with .T. 

Store total to total 
Endif 
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Replace vn with vnl 
If linectr=40’^N 

. p i 

?? ' ' 
7 I 

?? 'Grand Total '+ str(total) 

? ' ‘ 

? ' ' 



I 



I 



? ' ' 

? 'Material Management NCO : 

?? 'Date : 7 / ' 

? 'Material Management Officer : 

?? 'Date : 7 / ' 

Eject 
N = N + 1 

Endif 

linectr = linectr + 1 



Endif 

Endif 

Skip 

Enddo 

? ' ' 

?? ' ' 
p I I 

?? ' Grand Total :$' + str(total) 

? ' ' 

? ' ' 

? ' Authorized to turn-in 

? ' by 

? 'Matrial Management NCO ; 

?? ' Date : / / ' 

? ' ' 

? 'Material Management Officer ; 

?? ' Date : / / ' 

linectr = 1 
pagectr = 1 
Store 0 to total 
Eject 

Set print off 
Set console on 
Return 

* * Eof TRTUNLC.prg * 



A 



i. TRCANCEL 



AA:k:k:k:*::k:k-A:k:k:k:k:k:k-A:k-:k:k-A TRCANCEL . PRG :k-A:k:kA:k-A^:k-:k:k-A:k:kA:k:k-:k:k:^:k:k:^:k-A:^:k:k:k-k:k:^ 



Module name. 

Author 

Date 

Purpose 

Called by. . . 
Modules called 



TRCancel .prg 
Park, Taeyong 
Sept 20. 1987 

Cancel the request for issue item 
Transact. prg 
None 



A 

5^ 

A 

A 

A 



:^A:Af5«cA5«cA5*cAAAA5*c5*cAA:^:A::A:AAA:A::^:^A5*c5*cAAA5*cAA5*cAA5ic5ic:^5ic5ic5*c5icA5ic:^5‘c5ic:^:^5«cA:^A:^3ic5*c5ic:^:^A5*cA:^5‘cA5‘c7‘t5ic 



Use Master index SCTMAST 

Store "N" to Checks 

Store Stockn to Msn 

Store "1500" to Mcust 

Store Msn+Mcust+"RL" to Msncu 

Seek Msncu 

Do case 

Case STOCKN = " " 

More = .F. 

?? Chr(7) 

@ 11,15 clear to 15,65 
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@ 11,15 to 15,65 

d 13,17 Say "Please Enter Stock number you want to cancel ! " 
N = .0 

Do while N < 35 
N = N+1 
Enddo 
Case found() 

Set format to CANCMAST 
Read 

If checks= "Y" 

Replace Vn with "CANCEL-0000-0000" , posted with .T. 

Store unitcost to mcost 
Store reqno to mreqno 
Store qty to raqty 
Append Blank 

Replace sn with stockn,ci with "1500", Reqno with mreqno 
Replace Qty with Mqty,Type with "CL" , unitcost with mcost 
Replace Hisc with .T., posted with .T.,Date with today 
Replace Vn with "Cancel-0000-0000" 

More = . F . 

Endif 

Set format to 

Case .NOT. found() 

@ 11,15 clear to 15,65 
0 11,15 to 15,65 

d 13,18 Say "You never request "+stockn+" code item '. " 

?? chr(7) 

N=1 

Do while N <35 
N=N+1 
Enddo 
More = .F. 

Endcase 

Close Databases 
Return 

* * Eof Cancel. prg * * 



j. TRACKING 



TRACKING . PRG ir-k'k'k'k 



Module name . 

Author 

Date 

Purpose . . . . , 
Called by . . , 
Modules called 



Trancking.prg 
Park, Taeyong 
Sept 20. 1987 

Tracking the record of transaction. 
Transact. prg 
None 



* 

* 

"k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Set talk off 
Set echo off 
Use master 

Index on Ci+SN to CSMAST 

Use master index sctmast, CSMAST 

title = "Sales Tracking" 

Mok="Y" 

Do while .T. 

Clear 

@ 4,25 say title 
d 8,15 Say "Options" 



d 10,17 Say "1. 
@ 11,17 Say "2. 
d 12,17 Say "3. 
@ 13,17 Say "4. 
d 15,17 Say "5. 



Detail Sales" 

Summary Sales" 

Detail Customer Sales" 
Summary Customer Sales" 
Return to main menu" 
d 17,15 Say "Enter Option: " 



114 



@ 2,1 to 23,75 
Store "" to sel 
@ 17,29 Get sel 
i=0 

Do while i=0 
i=inke 



Endif 

i=0 

Enddo 

(? 17,29 Say Chr(i) 

If chr(i)=^'5" 

Exit 

Endif 

Store spacers) to Enddate 
Store Space(8) to begdate 

@21,9 Say "Enter period for sales tracking ( 
@ 21,42 Get begdate pict "99/99/99" 

@ 21,53 Get Enddate pict "99/99/99" 

Read 

Store Ctodfbegdate) to begdate 

Store Ctod(Enddate) to enddate 

Set filter to Date>begdate .AND. Date<Enddate 

Do case 

Case chr(i)="l" 

Set Order to 1 
Do setup 

Report form tranrpl 
Case chr(i)="2" 

Set Order to 1 
Do setup 

Report form tranrp2 
Case chr(i)="3" 

Set Order to 2 
Do setup 

Report form tranrp3 
Case chr{i)="4" 

Set Order to 2 
Do setup 

Report form tranrp4 
Otherwise 
Loop 

Endcase 

If Upper(Mok)="Y" 

Set console on 
Set print off 
Set Order to 1 
Else 

@ 24,17 Say "Press any key to continue..." 
Wait"" 

Endif 

Clear 

Enddo 

Close databases 
Erase cimast.ndx 
clear 
Return 

Fnf TRflr Iri na . nrn *--■ 



If chr $"12345" 
Exit 
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3. REPORTS 



a. REPORTS MENU 



-k:k'k:k'k'kir'k-k'k'k'k'k'k'k’k-k-k'k-k'k'k REPORTS . PRG 'k'k-k’k'k-k'k'k-k'k-k'k'k'k'k‘k-k'k'ki<i<-k-k‘k'ki<‘k:ki>:'k:k 

9^'k-k-k'kiK'ki^'k’k'k’ki^'k'kiririr:kirir-kiK'k'k-k-k’k'kiKir'k:k-k7zi^'k’kiK'kir'kir'k'k'k'k-kir'k’k'kiriri^'k’ki^'k-k:k’k'ki^ 



Module name. 

Author 

Date 

Purpose . . . . . 



Called by 

Modules called 
Variales used. , 
Public . 
Local. . 



Reports .prg 
Park, Taeyong 
Sept 15. 1987 

To generate report to higher command 
or to use in division 

Pmain.prg 

RPTSR.prg RPSOR.prg RPOST.prg RPEIS.prg 

Reportd(last report date) 

Bigdate ,Enddate ,Msel 



:k 

'k 

■k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



DO WHILE .T. 

Store space(8) to begdate , enddate 
Store "X" to Msel 

CLEAR 

@ 1,15 TO 3,55 double 
@ 4,1 TO 23,77 
@ 6,3 TO 21,38 
@ 5,4 TO 7,28 
@6,5 SAY SPACE (23) 

@ 6,41 TO 12,75 
@ 5,42 TO 7,59 
@6,43 SAY SPACE (16) 

@ 14,41 TO 21,75 
@ 13,42 TO 15,59 
@ 14,43 SAY SPACE(16) 

@ 2,25 SAY "R E P 0 R T S" 

@6,6 SAY " Type of Reports" 

@ 6,44 SAY "Information" 

@ 14,44 SAY "Time Period" 

@ 9,6 SAY "1 : Transaction Status Report" 

@ 10,10 SAY "(DA form 3183)" 

@ 12,6 SAY "2 : Stockout Report" 

@ 13,10 SAY "(DA form 3184)^ 

@ 15,6 SAY "3 ; OST Report*' 

@ 16,10 SAY "(DA form 3185)" 

@ 18,6 SAY "4 : Combat Essential Item" 

@ 19,10 SAY "Stockout Report" 

@ 20,10 SAY "(DA form 3186)" 

@ 8, 46 SAY "Last TSR Report Date" 

@ 9, 50 SAY TSRDATE 

@ 11,46 SAY "Today " +DTOC(TODAY) + "("+zulu+")" 

@ 17,45 SAY "Biginning Date - Ending Date" 

@ 19,50 Say "( - )" 

SET COLOR TO N/W 

@ 19,51 SAY Begdate Piet "99/99/99" 

@ 19,62 SAY Enddate Piet "99/99/99" 

SET COLOR TO 

@ 22,13 SAY "Enter Selection from (1 - 4, or 0 to return) : :1" 
STORE "" TO SEL 
@ 22,60 SAY SEL 

The following lines are for select loop 

i=0 

DO WHILE i=0 
i=IMKEY() 

@ 22,60 SAY "" 

IF UPPER(CHR(i))$"01234" 

@ 22,60 SAY CHR(I) 

EXIT 
END IF 
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i=0 

ENDDO 

If CHR(I) = 'O' .OR. 1=27 
? Chr{7) 

Clear 
Exit 
ENDIF 
DO CASE 

Case CHR(I) = '2' 

0 8, 46 SAY "Last SOR Report Date" 

0 9, 50 SAY SORDATE 
Case CHR(I) = '3' 

0 8, 46 SAY "Last OST Report Date" 

0 9, 50 SAY OSTDATE 
Case CHR(I) = '4' 

0 8, 46 SAY "Last EIS Report Date" 

0 9, 50 SAY EISDATE 

ENDCASE 

© 19,51 GET Begdate Piet "99/99/99" 

© 19,62 GET Enddate Piet "99/99/99" 

READ 

IF BEGDATE =" " .OR. ENDDATE=" " 

? CHR(7) 

© 24,15 SAY "YOU HAVE TO ENTER THE PERIOD" 
K=0 



DO WHILE K<40 
K=K+1 
ENDDO 
LOOP 
ENDIF 

Store Ctod(beqdate) to begdate 
Store Ctod(enadate) to enddate 
DO CASE 

Case CHR(I) = '1' 

Do RPTSR 

STORE TODAY TO TSRDATE 
Case CHR(I) = '2' 

DO RPSOR 

STORE TODAY TO SORDATE 
Case CHR(I) = '3' 

DO RPOST 

STORE TODAY TO OSTDATE 
Case CHR(I) = '4' 

DO RPEIS 

STORE TODAY to EISDATE 
OTHERWISE 

? CHR{7) 

ENDCASE 

ENDDO 

RETURN 

* * Eof: REPORTS. prg 






A 



b. RPTSR 



RPTSR . PRG * * * t*? * 7k * A tIt * * * * * 7<t tIc * * tIc * tI? t*? * 7<t 7k tIc * 

A:A::Ar:A::A::A::A::Ar:A:A:A::A:A:A::A::k:A::k:^A:A::k:A::^:A::^:A::A::k:A:7k7k7k7kA7kA:A::A::A::^:A::A::^:^:^:A::A::A::#f:A::A::A::^:A::A::^:k:A::Ar:k:k:Ar:^7k7k:^:k:k:k 



Module name. 

Author 

Date 

Purpose . . . . . 



Called by 

Modules called 
Variales used. . 

Local. . 



RPTSR. prg 
Park, Taeyong 
Sept 15. 1987 

Generate Transaction history report 
to higher command. 

REPORTS. prg 



Begdate, Enddate, Classn, Type 



* 

"k 

7k 

7k 

7k 

k 

k 

k 

k 

k 
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■k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k-k'k'k'k^k'k'ki^'k’k'k-k-k-k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k’k 



Clear 
Select B 

Use PROPERTY index snproper 
Do while .T. 

Store " " to Classn, Mprint 

Store " Transaction Status Reports" to Mtitle 
Do Select 

Store " (Date>=Begdate .AND. Date<=Enddate)" to period 
Store "Type='RL' .OR.TYPE='IL' .OR.TYPE='CL' .OR.TYPE='TL"' to tcond 
Store "&f'ERIOD" TO CNl 
Select A 

Use MASTER index sctmast 
Copy to Mlmast for &tcond 



Do case 

Case upper(Chr(i))="l" 

Sel="l" 

Select B 

Index on Class+Sn to CSPROPER 
Select A 
Use Mlmast 



Cop^ to STMAST for &cnl 

CAse upper (chr(i) )="2" 

Sel='’2" 



@ 14,30 Say "Enter Class number(l-lO) 
@ 15,30 Say " 0 for 10 " 

Read 

If classn = "0" 

Store "10" to Classn 
Endif 
Select A 
Use MIMAST 



" get Classn pict 



Copy to XTMAST for &period 

INDEX ON SN TO XTMAST 

USE XTMAST INDEX XTMAST 

Set relation to sn into B 

Copy to STMAST for b->class= ' Scclassn ' 

Use STMAST 
Erase xtmast.dbf 
Erase xtmast.ndx 
Exit 

Case upper (chr(i) )="3" 

§el=''3" 

(3 16,30 Say "Enter stock number" get stockn; 

Diet '9999-99-999-9999' 

Read 
Select A 
Use MIMAST 

Index on sn to MIMAST 
Use MIMAST INDEX MIMAST 

Store "Stperiod .AND. sn=' &stockn' " to conditl 

Copy to STMAST for &conditl 

Exit 

Case upper(chr(i) )="0" 

Close databases 



Return 
Othe rwise 

? chr(7) 

Endcase 
Enddo 
Select A 
Use STMAST 

Index on SN+TYPE+CI to STMAST 
Use STMAST index stmast 
Erase MIMAST. dbf 
Erase MIMAST. ndx 



II 0 II 



Do printer 
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store 1 to linectr,pagectr,N, liner 

Store 0 to mdi , reqqty,canqty, recqty , turnqty,DInow,mqty 
Store 0 to sreqqty, smdi , scanqty , srecqty, sturnqty, sdinow 

If Eof() 

(a 10,18 Clear to 14,58 
@ 10,18 to 14,58 

d 11,20 SAY " You Never Requested" 

d 13,20 Say " Press any key to return...." 

Wait "" 

Close databases 
Erase STMAST.DBF 
Erase STMAST.NDK 
Return 
Endif 
select A 
Clear 
Go top 

* Holds one of item from property file 

Do while .NOT. EofO 
Store SN to stockn 
select B 

store class to classn 
Store nm to mnm 
Select A 
Seek stockn 
If found 0 

Sum qty*Unitcost for type="RL" 

Store qty*unitcost to RLqty 



Sum Qty*unitcost for type="IL" 

Store qty to ILqty 
MDI=Rlqty - Ilqty 
Seek stockn 

Do while .NOT. Eof() .AND. sn=stockn 
Store qty*unitcost to mqty 
Do case 

Case type = "RL" 

Reqqty = reqqty+mqty 
Case Type = "CL" 

Canqty = Canqty+mqty 
Case Type = "IL" 

Recqty = Recqty+mqty 
Case Type = "TL" 

Turnqty = Turnqty+mqty 

Endcase 

Skip 

Enddo 

Store MDI+reqqty-Canqty-Recqty to DInow 
If liner=l 



.AND. date < begdate 
.AND. date < begdate 



7 

7 

7 

7 

77 

7 

77 

7 

7 

7 

'■> 



Transact Status Report' 
Page ' + str(pagectr ,2) 



From 

To 



Date 

The 150 Infanry Division' 

The 3333 Logistics Supprot Command 



' +Dtoc (date ( ) ) 



' From To ' 

I 

Dtoc (begdate )+' - '+Dtoc(enddate) 
No 



7? 

7 

77 
7 

? 'No Stock number Description ' 

?? ' D/Ibeg Req st Cancel Rec ve Turnin D/Inow' 

Store pagectr + 1 to pagectr 
Endif 

Store linectr to Z 

? Str(Z,4)+' '+stockn+' ' +rtrim(mnm)+space( 15 - LEN(rtrim(mnm) ) ) 
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?? ' ' +substr(str(MDI) , 5 ,6)+' '+ substr(Str (reqqty 

?? substr (str (Canqty) ,4, 7)+substr (str (Recqty) ,4,7 

?? sub.str(str( turngty) ,4,7)+substr(Str(DInow) ,4,7 

Store Smdi+mdi to Smdi 

Store Sreqqty+reqqty to Sreqqty 

Store Scanqty+canqty to Scanqty 

Store Srecqty+recqty to Srecqty 

Store Sturnqty+turnqty to Sturnqty 

Store Sdinow+dinow to Sdinov/ 

Store 0 to mdi , reqqty , canqty recqty, turnqty,DInow 
Linectr=linectr+1 
Liner= liner+1 
If liner=40*N 

? ' ' 

I I 



,4,7) 



7 > I 

?? 
7 ' I 



Grand Total '+ str(total) 



? ' ' 

? 'Material Management NCO 
?? 'Date : / /. 



? 'Material Management Officer 

?? 'Date : / / ' 

Eject 
N = N + 1 
Endif 
Endif 
If sel="l" 

If linectr=l 
Select B 
Skip 

Store class to classn 
Loop 
Endif 
Select B 
Skip 
Endif 

If B->ClassOClassn .OR. Eof() 

? 'Class '+classn+' 



?? 

7 ' I 

77 



Subtotal '+' 



' +substr (str (smdi) ,5,6)+' 



?? substr(str(sreqqty) ,4,7)+ substr (str (Scanqty ), 4 , 7 ) 

?? Substr (str (Srecqty) ,4 , 7 )+Substr (Str (Sturnqty) ,4,7 ) 

?? substr(str (sdinow) ,4,7) 

? ' ' 

Store 0 to sreqqty , smdi , scanqty , srecqty, sturnqty, sdinow 
Store 1 to linectr 
Liner=liner+3 
Endif 
Enddo 
If liner>l 

? ' ' 

7 I I 

? 'Matrial Management NCO ' 

?? ' Date : J / ■' 



I 



I 



'Material Management Officer 



?? ' Date . 
linectr = 1 
pagectr = 1 
Endif 

If mprint="Y" 
Eject 

Set console on 
Set print off 
Endif 

Set color to N/W 
Wait 



/ L 
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Set color to 

Store space(16) to stockn 
Clear 

Close Databases 
Erase STmast.dbf 
Erase stmast.ndx 
If sel="l" 

Erase csproper.ndx 
Endif 

@9,15 to 15,64 double 
@ 11,25 Say "Finished report for TSR " 

@ 13,25 Say "Period "+Dtoc(beqdate)+" - "+Dtoc (enddate ) 
N=0 

Do while n<35 
N=M+1 
Enddo 
Clear 

Store Space(16) to stockn 

Release all 

Return 

* * Eof RPTSR.prg * 



c. RPOST 



A A A A AAA AAA AAA AAA A A RPOST . PRG A A AAA AAA AAA A A A AAA A A AAA A A A A A A A A A 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

* Module name RPOST. prg * 

* Author : Park, laeyong * 

* Date : Sept 25. 1987 * 

* Purpose ; Generate Oder shipping time report * 

* Called by .- Reports. prg * 

* Modules called : None * 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 



Clear 
Select B 

Use PROPERTY index snproper 
Do while .T. 

Store " " to Classn, Mprint 

Store "ORDER SHIPPING TIME REPORT" to mtitle 

Do select 



Store " (Date>=Begdate .AND. Date<=Enddate) " to period 
Do case 

Case upper(Chr(i) )="1" 

Sel='h" 



Select B 

Index on Class+Sn to CSPROPER 
Select A 
Use master 

Store "type='RL' .AND.&period" to conditl 

Copy to kLmAST for Scconditl 

Store "type='IL' .AND.&period" to condit2 

Copy to IlMAST for &condit2 

Exit 

CAse upper(chr (i) )="2" 

Sel=''2" 

@ 14,35 Say "Enter Class number(l-lO) " get Classn 
@ 15,35 Say " (0 for 10)" 

Read 

If classn = "0" 

Store "10" to Classn 
Endif 
S 6 T 6 c ^ A 

Use master INDEX sctmast 
Set relation to sn into B 

Store "type='RL‘ .AND. &period .AND. b->class='&classn' " ; 
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to conditl 

Copy to RLHAST for Sconditl 

Store "type='IL' .AND. &period .AND. b->class='&classn' 
to conditz 

Copy to ILMAST for &condit2 
Exit 

Case upper (chr(i) )="3" 

Sel=''3" 

@ 16,35 Say "Enter stock number" get stockn; 

Diet '9999-99-999-9999' 

Read 
Select A 

Use master INDEX setmast 
Set relation to sn into B 

Store "type='RL' .AND. &period .AND. sn= ' &stockn ' " ; 
to conditl 

Copy to RLHAST for Stconditl 

Store "type='IL' .AND. &period .AND. sn= ' Sstockn ' " ; 
to conditz 

Copy to ILHAST for &condit2 
Exit 

Case upper(chr(i) )="0" 

Close databases 
Return 
Otherwise 

? chr(7) 

Endcase 
Enddo 
Select A 
Use RLHAST 

Index on SN+VN to SRRL 
Use RLHAST index SRRL 
If EofO 

@ 10,18 Clear to 14,58 
@ 10,18 to 14,58 

0 11,20 SAY " You Never Requested" 

0 13,20 Say " Press any key to return...." 

Wait "" 

Close databases 
Erase RLHAST. DBF 
Erase SRRL.NDX 
Return 
Endif 



Select C 
Use ILHAST 

Index on SN+VN to SRIL 
Use ILHAST index SRIL 
If Eof() 

0 9,18 clear to 13,60 
0 9,18 to 13,60 

0 10,20 SAY "You Never Received the requested item" 

0 12,20 Say "Press any key to return...." 

Wait "" 

Close databases 
Erase RLHAST. DBF 
Erase SRRL.NDX 
Erase ILHAST. DBF 
Erase SRIL.NDX 
Return 
Endif 

Store 0 to SNl ,SN2 ,SN3 , SN4, SN5 ,SH1QTY,SH2QTY,SH3QTY,SM4QTY,SH5QTY 

Store 0 to N1 ,N2 ,N3 ,N4 ,N5 ,H1QTY,H2QTY,H3QTY,H4QTY,H5QTY 

Store 0 to STOTN,TOTQTY,TOTN,STOTQTY,mdate 

Store 1 to linectr,pagectr,N, liner 

Go top 

Do printer 

Clear 

select A 

Go top 
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* Holds one of item from property file 

Do while .NOT. EofO 
Store SN to stockn 
select B 

store class to classn 
Select C 

* Find the stock number which is the same as 

* at the file which is sorted type "IL" 

Seek stockn 

If foundO 

Do while .MOT. Eof() .AND. sn=stockn 
Store Date to mldate 
Store VN to MIVN 
Store Stockn+MIVN to mstock 

* Find the stocknumber which is the same voucher 

* at the file which is soreted by type "RL" 

Select A 

Seek mstock 

If foundO 

Store date to m2date 
Store qty to mqty 
Store mldate-mZdate to mdate 
Do case 

Case mdate<7 
N1=N1+1 

Mlqty=Mlqty+mqty 
Case mdate-7<7 
N2=M2+1 

M2qty=M2qty+mqty 
Case (Mdate>=15 .and. MdateOO) 

N3=M3+1 

M3qty=M3gty+mqty 
Case (Mdate>=30 .and. Mdate<60) 

N4=N4+1 

M4qty=M4qty+mqty 
Case (Mdate>=60 .and. Mdate<90) 

N5=N5+1 

M5qty=M5qty+mqty 

Endcase 

Endif 



Store N1+N2+N3+N4+N5 to TOTN 
Store M1QTY+M2QTY+M3QTY+M4QTY+H5QTY to TOTQTY 
Select C 
Skip 
Enddo 
If liner=l 



7 

7 

7 

7 

7 ? 

7 

7? 

7 

7 

7 

7 

7 

7? 

7 

77 

7 

7 

7 ? 

77 

7 



' Report 



Oder Shipping Time' 
Page ' str(pagectr , 2) 

Date : ' +Dtoc(date( ) ) 



To : The 3333 Logistics Supprot Command' 
From : The 150 Infanry Division' 



To ' 

Dtoc(enddate)+' ) ' 

No Stock number 
' Total 7days 

' Bodays' 



From ' 

( ' +dtoc(begdate)+' ) - { 



14days 



30days 



?? 'Total Q ty Freq Q ty Freq Q ty Freq Q ty ' 

?? 'Freq Q ty'' 

store pagectr + 1 to pagectr 
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Endif 



Store linectr to Z 

? Str(Z,3)+' '+stockn+substr(str(TOTN) ,5,6) 

?? substr(str(TOTQTY) ,5 ,6) 

?? subs tr ( s tr (N1 ) ,5,6 )+substr(Str(MlQTY) ,5,6) 
?? substr (str (N2) , 5 , 6 )+subs tr ( str ( M2QTY) ,5,6) 
?? Substr (str(N3),5 , 6)+subs tr ( s tr (M3QTY ) , 5 , 6 ) 
?? substr(str(N4) , 5,6)+substr(Str(M4QTY) ,5,6) 
Store STOTN+TOTN to STOTN 
Store STOTQTY+TOTQTY to STOTQTY 
Store Stil+ia to SNl 
Store SMIQTY+MIQTY to SMIQTY 
Store SN2+M2 to SM2 
Store SM2QTY+M2QTY to SM2QTY 
Store SM3+M3 to SN3 
Store SM2QTY+M2QTY to SM2QTY 
Store SN4+M4 to SN4 
Store SM4QTY+H4QTY to SM4QTY 
Linectr=linectr+1 
liner= liner+1 
If liner=40*N 
? ' 

? ' ' 

? ' ' 

7 I I 



? 'Material Management HCO : 

?? 'Date : / / ' 

? 'Material Management Officer : 

?? 'Date : 7 / ' 

Eject 
M = N + 1 
Endif 



I 



Endif 
If sel="l" 

If linectr=l 
Select B 
Skip 

Store class to classn 
Loop 
Endif 
Select B 
Skip 
Endif 

If (b->classoclassn) .OR. EOF() 

? 'Class '+classn+' ' 

77 I 1 

? ' Subtotal ' 

?? substr(str(STOTN) ,5,6 )+substr( str (STOTQTY) ,5,6) 

?? substr(str(SNl) ,5,6)+ substr (Str (SMIQTY) , 5 , 6) 

?? substr (str (SN2) , 5 ,6)+substr(str(SM2QTY) ,5,6) 

?? Substr(str(SN3) ,5,6)+substr(str(SM3QTY) ,5,6) 

?? substr (str (SN4) ,5,6)+substr(Str(SM4QTY) ,5,6) 

7 I I 

Store 0 to SNl ,SN2 ,SN3 , SM4 , SMS , SMIQTY, SM2QTY,SM3QTY,SM4QTY,SM5QTY 
Store 0 to N1 ,N2 ,N3 ,N4,N5 ,M1QTY,M2QTY,M3QTY,M4QTY,M5QTY 
Store 0 to STOTN, TOTQTY, TOTH, STOTQTY, mdate 
Store 1 to linectr 
Liner=liner+3 
Endif 
Enddo 

If liner > 1 

? ' ' 

7 I I 

? 'Matrial Management NCO : ' 

?? ' Date : / / ■' 

7 I I 

? 'Material Management Officer : ' 

?? ' Date : / / ' 

Endif 
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If mprint="Y" 

Eject 

Set console on 
Set print off 
Endif 

Close databases 
Erase Csproper.ndx 
Erase RLHAST.DBF 
Erase SRRL.NDK 
Erase ILMAST.DBF 
Erase SRIL.MDX 
Set color to M/W 

v;ait 

Set color to 

(3 9,15 clear to 15,64 

@9,15 to 15,64 double 

@ 11,25 Say "Finished report for OST " 

§ 13,25 Say "Period "+Dtoc(begdate)+" - "+Dtoc(enddate) 

N=0 

Do while n<35 
M=N+1 
Enddo 

Store Space(16) to stockn 

Release all 

Clear 

Return 

* * Eof OST.prg * * 



d. RPEIS 



A :i>c Tif A ★ A A A A A :<c :<c A yc A ;#c :<c :i‘c :i<c 

'k-k-k'k'k:k'k-k:k'k'k9r'k:k'k'k-k-k:k RPEIS. PRG 'k'k'k'k:k:k'k:k-k'k'ki^i^ii:'k:k'k'kii:'k'k'k'k'k'k:k:k'k:ki^'k 



Module name, 

Author 

Date 

Purpose . . . . . 



Called by 

Modules called 
Variales used. . 

Public . 
Local. . 



RPEIS .prg 
Park, Taeyong 
Sept 24. 1987 

Generate Combat essential item 

Stockout history report to higher command. 

Reports .prg 



S, Sts, Mprint, Mqty, Mcost, 



* 

"k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Select B 
Use PROPERTY 

Copy to TEHPPROP for ESSENCE 
Use TEHPPROP 

Index on Class+SN to CSproper 

Use TEHPPROP index CSPROPER 

Select A 

Use STOCKOUT 

Index on SN to SNSTOK 

Use STOCKOUT index SNSTOK 

Select B 

Store 1 to linectr,pagectr ,N, liner 

Store 0 to sts30 , sts6u , sts90 , stsl20 , stco30 , stco60 , stco90 , stcol20 
Store 0 to S30,s60,s90,sl20,sco30,sco60,sco90,scol20,msqty,mscost 
Go top 

Store CLASS to CLASSN 
Store " " to Mprint 
Do printer 
Clear 

Do while .NOT. Eof() 

Store SN to STOCKN 
Store NM to MNM 
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Select A 
Seek STOCKN 
If found(). 

Do while .NOT. Eof() .AND. sn=stockn 
Store QTY to MQTY 
Store QTY*UNITCOST to MCOST 
If Dtoc(REFILLDATE)=" " 

Skip 

Loop 

Endif 

Store REFILLDATE to FILLDATE 
Store OUTDATE to SOUTDATE 
Bal = FILLDATE-SOUTDATE 
Do case 

Case bal <= 30 

S30 = S30+mqty 
Sco30 = Sco30+mcost 

Case Bal <= 60 .AND. Bal>30 
S60 = S60+mqty 
Sco60 = ScobO+mcost 

Case Bal <= 90 .AND. Bal>60 
S90 = S90+mqty 
Sco90 = Sco90+mcost 

Case Bal > 90 

S120 = S120+mqty 
Scol20 = ScolzO+mcost 



Endcase 

Skip 

Enddo 

Store S30+S60+S90+S120 to SQTY 

Store SC030+SC060+SC090+SC0120 TO SCOST 

If liner=l 

■> I I 



? ' ' 

? I 

?? 'Stockout Report 

? I 

?? ' 

? I 

? ' To : The 3333 Logistics Supprot Command' 

? ' From : The 150 Infanry Division' 

? ' ' 

7 I 
7 I 

?? Dtoc(enddate)+ ' ) ' 

7 I 

? ' No Stock number 
?? ' Total 30days 

?? '120days' 

7 ' I 

?? 'Total Cost Item Cost Item Cost Item Cost ' 
?? 'Item Cost' 

7 I I 

store pagectr + 1 to pagectr 
Endif 



Combat Rssential Item ' 

Pa^e ' + str(pagectr,2) 

Date : ' +Dtoc(date() ) 



From To 

( '+Dtoc(begdate)+' ) 



60days 



90days 



Store linectr to Z 

? Str(Z,3)+' ' +stockn+substr (str (sqty) , 5 ,6) 

?? substr(str(scost) ,5,6) 

?? substr(str(S30) ,5,6)+substr(Str(sco30) ,5,6) 

?? substr ( str ( s60 ) , 5 , 6)+substr( str ( sco60 ) ,5,6) 

?? Substr (str (s90) , 5 ,6)+substr(str(sco90) ,5,6) 

?? subs tr( str (sl20) ,5,6)+substr(Str(scol20) ,5,6) 

Store msqty+sqty to msqty 

Store mscost+scost to mscost 

Store Sts30+s30 to Sts30 

Store Stco30+sco30 to Stco30 
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store Sts60+s60 to Sts60 
Store Stco60+sco60 to Stco60 
Store Sts90+s90 to Sts90 
Store Stco90+sco90 to Stco90 
Store Stsl20+sl20 to Stsl20 
Store Stcol20+scol20 to Stcol20 
Linectr=linectr+1 
liner= liner+1 
If liner=40*N 

? ' ' 

? ' ' 

? ' ' 

? ' ' 

? 'Material Management NCO : ' 

?? 'Date : / / ' 

? 'Material Management Officer : ' 

?? 'Date : / / ' 

Eject 
N = N + 1 
Endif 
Endif 

If linectr=l 
Select B 
Skip 

Store Class to classn 
Loop 
Endif 
Select B 
skip 

If classoclassn .OR. Eof() 

? 'Class '+classn+' ' 

77 I I 

?’ ' Subtotal ' 

?? substr (str (msqty) , 5 ,6 )+substr (str(mscost) -5,6) 

?? substr (str (StsSO) , 5 , 6)+ substr(Str(stco30) ,5,6) 

?? substr (str (sts60) , 5 , 6 )+substr ( str ( stco60) ,5,6) 

?? Substr (str (sts90) , 5 , 6 )+substr (str (stco90) ,5,6) 

?? subs tr(str(sts 120) ,5,6)+substr(Str(stcol20) ,5,6) 

? ' ' 

? ' ' 

Store 0 to sts30 , sts60 , sts90 , stsl20 , stco30 , stco60 , stco90 , stcol20 
Store 0 to S30 , s60 , s90 , sl20 , sco30 , sco60 , sco90 , scol20 ,mscost , msqty 
Store 1 to linectr 
Liner=liner+4 
Endif 

Store class to classn 
Enddo 

If liner > 1 

? ' ' 

? ' ' 

? 'Matrial Management NCO : ' 

?? ' Date : / / ^ 

7 I I 



? 'Material Management Officer : 

?? ' Date ; / / ' 

Endif 

If mprint ="Y" 

Eject 

Set print off 
Set console on 
Endif 
Close all 
Erase SNstok.ndx 
Erase tempprop.dbf 
Erase csproper.ndx 
@ 9,15 clear to 15,64 
@ 9,15 to 15,64 

@ 11,25 Say "Finished report for Stockout " 

@ 13,25 Say "Period "+Dtoc(begdate)+" - "+Dtoc(enddate) 
N=0 
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Do while n<35 
N=N+1 
Enddo 

Release all 

Clear 

Return 

* * Eof Eis.prg * 



e. RPSOR 



7r-ki<i<:i^'k'k-k-k-k'k'k-k'k'k-k'k'k-k'k RPSOR . PRG ik:k-k:k-k-k-k-k-k-k-k-k-k-k-kii-k-k:k-k-k-k-k-k-k-k-k'k^-k'k'k'k 

* Module name RPSOR. prg * 

* Author Park, Taeyong * 

* Date Sept 24. 1987 * 

* Purpose : Generate Stockout history report * 

* to higher command. * 

* Called by Reports. prg * 

A7^r7‘t7'c7VxX7‘t^7‘cX;i:^^^^^7^:^7>c^X7‘cx7*C7‘txx^X7‘t^;ic7‘tA^^^^7^7‘c^7‘c;‘t^7‘t;‘c;^:;‘c7‘t^7‘cAA7^AA;‘c^7‘cA'A:<i:/*c;‘ir7*t7^^^^7ic 



Select B 

Use PROPERTY index snproper 
clear 

Do while .T. 

Store " " to Classn, Mprint 

Store " STOCKOUT REPORT" to mtitle 

Do select 

Store " (OutDate>=Begdate .AND. outDate<=Enddate)" to period 
Do case 



Case 



upper (C 
Sel='h 



Chr(i))="l" 



Select B 
Index on Class+Sn to CSPROPER 
Select A 
Use stockout 

Cop^ to TEMPOUT for &period 

CAse upper(chr ( i) )="2" 

Sel='‘2" 

@ 14,30 Say "Enter Class number(l-lO) " get Classn 
0 15,30 Say " (0 for 10)" 

Read 

If classn = "0" 

Store "10" to Classn 
Endif 
Select A 

Use stockout INDEX stockout 
Set relation to sn into B 

Store "&period .AND, b->class='&classn' " to conditl 
Cop^ to tEMPOUT for &conditl 

Case upper (chr(i) )="3" 

Sel=''3" 

0 16,30 Say "Enter stock number" get stockn,- 
Diet '9999-99-999-9999' 

Read 
Select A 

Use stockout INDEX stockout 
Set relation to sn into B 

Store "&period .AND. sn= ' Sstockn ' " to conditl 
Cop^ to TEMPOUT for &conditl 

Case upper (chr(i) )="0" 

Close databases 
Re turn 
Otherwise 

? chr(7) 
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Endcase 
Enddo 
Select A 
Use TEMPOUT 
Index on SN to SNTEMP 
Use TEMPOUT index SNTEMP 
If Eof() 

@ 10,18 Clear to 15,58 
@ 10,18 to 15,58 
@ 11,20 SAY " Never Stockout" 

d 13,20 Say " Press any key to return...." 

Wait "" 

Close databases 
Erase TEMPOUT. DBF 
Erase SNTEMP. NDX 
Return 
Endif 

Do printer 
Clear 

Store 1 to linectr,pagectr,N, liner 

Store 0 to s ts30 , sts60 , sts90 , stsl20 , stco30 , stco60 , stco90 , stcol20 
Store 0 to S30 , s60 , s90 , sl20 , sco30 , sco60 , sco90 , SC 0 I 2 O ,msqty, msecs 
Go top 

Do v/hile .NOT. Eof() 

Store sn to stockn 

Select B 

Store nm to mnm 

Store class to classn 

Select A 

Seek stockn 

If foundO 

Do while .NOT. Eof() .AND. SN=ST0CKN 
Store qty to mqty 
Store qty*unitcost to mcost 
If Dtoc(refilldate)=" " 



Skip 

Loop 

Endif 

Store refilldate to filldate 
Store outdate to soutdate 
Bal = (filldate)-(soutdate) 

Do case 

Case bal <= 30 

S30 = S30+mqty 
Sco30 = Sco30+mcost 

Case Bal <= 60 .AND. Bal>30 
S60 = S60+mqty 
Sco60 = ScobO+mcost 

Case Bal <= 90 .AND. Bal>60 
S90 = S90+mqty 
Sco90 = ScoyO+mcost 

Case Bal > 90 

S120 = S120+mqty 
SC 0 I 2 O = Scol20+mcost 

Endcase 

Skip 

Enddo 

Store S30+S60+S90+S120 to SQTY 
Store SC030+SC060+SC090+SC0120 TO SCOST 
If liner=l 
? ' ' 



? ' 

? ' 

7> I 



Stockout Report' 
Page ' + str(pagectr ,2) 

Date : ' +Dtoc(date( ) ) 



?? 

? ' 

? ' 
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7 


' To : The 


7 

7 


' From : The 


7 

7 


' No Stock 


77 


' Total 


77 

7 


' 120days' 


7 7 


'Total Cost 


77 


'Item Cost' 


store pagectr + 
Endif 


Store 


linectr to Z 



30days 



60days 



90days 



Item Cost 
1 to pagectr 



Item Cost Item Cost 



? Str(Z,3)+' '+stockn+substr(str(sqty) ,5,6) 
?? substr(str(scost) ,5,6) 

?? substr(str(S30), 5,6)+substr(Str(sco30) ,5 

?? substr(str( s60) ,5,6)+substr(str(sco60) ,5 

?? Substr (str (s90) , 5 , 6)+substr (str (sco90) , 5 

?? substr(str(sl20) , 5 ,6)+substr (Str(scol20) 

Store msqty+sqty to msqty 

Store mscost+scost to mscost 

Store Sts30+s30 to Sts30 

Store Stco30+sco30 to Stco30 

Store Sts60+s60 to Sts60 

Store Stco60+sco60 to Stco60 

Store Sts90+s90 to Sts90 

Store Stco90+sco90 to Stco90 

Store Stsl20+sl20 to Stsl20 

Store Stcol20+scol20 to Stcol20 

Linectr=linectr+1 

liner= liner+1 

If liner=40*M 

'■> 

■> 

'■> 

? 'Material Management NCO 
?? 'Date : / /. 



- 6 ) 

, 6 ) 
, 6 ) 
,5,6) 



? 'Material Management Officer : 

?? 'Date : 7 / ' 

Eject 
N = N + 1 
Endif 
Endif 
If sel="l" 

If linectr=l 
Select B 
Skip 

Store Class to classn 
Loop 
Endif 
Select B 
skip 
Endif 

If b->classOclassn .OR. Eof() 

? 'Class '+classn+' ' 

7 -p < 

? ' Subtotal ' 

?? substr (str (msqty) , 5 ,6)+substr (str (mscost) ,5,6) 



?? Substr(str(sts90 



(str( 


[stco60) , 


5,6) 


(str( 


Istco90) , 


5,6) 



Store 0 to sts30 , sts60 , sts90 , stsl20 , stco30 , stco60 , stco90 , stcol20 
Store 0 to S30 , s60 , s90 , sl20 , sco30 , SCO60 , sco90 , SCO120 , mscost , msqty 
Store 1 to linectr 
Liner=liner+3 
Endif 
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Enddo 

If liner > 1 

? ' . ' 

? ' ' 

? 'Matrial Management NCO : 

?? ' Date : / / ' 

? ' ' 

? 'Material Management Officer ; 

?? ' Date : / / ' 

Endif 

Close all 

If mprint = "Y" 

Eject 

Set console on 
Set print off 
Endif 
If sel="l" 

Erase csproper.ndx 
Endif 

Erase tempout.dbf 
Erase SMtemp.ndx 
Set color to N/W 
Wait 

Set color to 
@ 9,15 clear to 15,64 
@ 9,15 to 15,64 double 

@ 11,25 Say "Finished report for Stockout " 

d 13,25 Say "Period "+Dtoc(begdate)+" - "+Dtoc (enddate) 

N=0 

Do while n<35 
M=N+1 
Enddo 
Clear 

Store space(16) to stockn 

Return 
* 



* Eof SOR.prg * 



4. ANALYSIS 



a. ANALYSIS STARTUP 



ANALYSIS. PRG 

7*c^7c:A::A:yc7k:^:A::A::i^A:^7^:^:^yc:*::A::A:A:i^7<cA:^:A::*c^xA:A:ycii:>t:A::A:^:Ar^:*:AA:^ycyc:A:y?AycA:*:^:A::*:A:^A^:^yc:A:A7k^yc:A:7^7k*:*: 



Module name, 

Author 

Date 

Purpose 



Called by 

Modules called 
Variales used. , 
Public . 
Local . . 



safety level 
model 



ANALYSIS. prg 
Park, Taeyong 
Sept 25. 1987 

Analyze the reorder point, 

EOQ by using probabilistic 
(Fixed Order Size System) 

PMAIN.prg 

ANEOQ .prg, ANLEADT .prg 
TODAY. STD. STOCKM 

BEGDATE , ENDDATE , CTITLE ,MLEADT ,MQTY ,ORDERC , 
SERVL , FRATE , RSTD , LSTD , N , M , CSC , CSL . 



* 

:k 

A 

7 ^ 

7^ 

•k 

k 

k 

k 

k 

k 

k 






DO WHILE .T. 

Store space(8) to BEGDATE , ENDDATE 
Store space(50) to CTITLE 
Store "N" to CSL,CSC 
Store space U6) to STOCKN ,MREQNO 

Store 0 to HLEADT,MQTY,RDEM,ORDERC,SCOST, SERVL, FRATE, RSTD, LSTD 

Store 0 to DATEBAL,LEADDEM,T0TDATE,MLEADT1 

Store 1 TO N,M 

CLEAR 

Text 



THIS SYSTEM USES THE FIXED ORDER SIZE SYSTEM WITH PROBABILISTIC 
MODEL. THE FIXED ORDER SIZE SYSTEM IS COMPLETELY DEFINED BY THE 
ORDER QUANTITY Ql AND REORDER POINT B|. THE RISK OF STOCKOUT 
OCCURS AFTER REORDER POINT. TO GET Ql,Bl, YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM ASSUMED 
BACKORDER CASE WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 



Endtext 

@ 19,17 SAY "Enter stock number : " 

@ 21,12 SAY "Enter time period you want to; 
test( - )" 

SET COLOR TO N/W 
@ 21,48 SAY "01/01/87" 

@ 21,59 SAY "12/31/87" 

SET COLOR TO 

@ 22,50 SAY "Begin End date" 

@ 24,20 SAY "Leave BLANK any space to Exit " 

@ 1,10 TO 3,60 DOUBLE 
@ 4,1 TO 23,77 DOUBLE 

@ 2,15 SAY "A N A L Y S I S of TRANSACTION" 
@ 3,62 SAY "Today : " +DTOC(DATE( ) ) 

@ 19,38 GET STOCKN PICT "9999-99-999-9999" 

READ 

IF STOCKN=' ' 

EXIT 

EMDIF 

0 21,48 GET BEGDATE PICT "99/99/99" 

0 21,59 GET ENDDATE PICT "99/99/99" 

Read 

If Begdate=" " .OR. Enddate=" " .OR. Stockn=" " 

Exit 

Endif 
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store CtodfBegdate) to Beqdate 
Store Ctod(Enadate ) to Enddate 

If BEGDATE>=ENDDATE 
Clear 

@15, 25 SAY "The End date MUST be later than the begin date' 

@17, 30 SAY "Press ENTER to redo " 

Wait " " 

Loop 

Endif 

Do ANLEADT 
If Rdem<=0 
Clear 
Loop 
Endif 

Do ANEOQ 
EMDDO 

CLOSE DATABASES 
RELEASE ALL 
ST0CKN=SPACE(16) 

RETURN 

A — — 



•* Eof: Analysis. prg *• 



b. ANLEADT 



:k'ki^:k:ki<:k:k:k:k:k:k:k:k:k:k:k:k:kiKA:k:k:k:k:k:k:kik:k:k:k:k:k:ki<::k:k:k'k:k:ki^:k:k:k:ki^ik:ki<:k:k:k:k:k:k:kik:k:k:k:k:k:k:k:k^ 

:k:k:k:k:k-k:ki^:k:k:k:k:k:k:k-k:k:k:k:k:k LEADT • PRG :k:k'k:k:k:k:k:k:k:k:k:k:k:k:k'k:k:k:k:k:k:ki^i^:k:k:k:k:k9z:k:k:k:k 

:k:k:k:k:k:k:k:k:k:k:ki<i<:k:k:k:k:k:ki<:k:k:k:k:k:k:k:k:k:ki::k:k:k:ki<:k:k:k:k:k:k:k^:k:k:ki<:ki^:k:k:ki<:k-k:k:k:k:k:k:k:k:ki^:k:k:k:k:k:k:k 



* Module name....: Leadt.Prg 

* Author : Park, Taeyong 

* Date : Sept 30. 1987 

* Purpose Calculate Lead time to Supply for given Item 

* Called by : Analysis. Prg 

* Modules called : Proc.prg 

* Variales used. . : 

* Public.: Mleadt,Mqty,Mzulu 

* Local. . : 



Set procedure to ANPROC 
SET CONSOLE OFF 
Clear 

@ 10,15 to 14,65 

@ 11,25 Say " Please do NOT touch" 

@ 13,25 Say " Working " 

Select B 

Use PROPERTY index snproper 
Select A 

Use master index sctmast 

Copy to RLMAST for type="RL" .AND. (Date>=Begdate .AND. Date<=Enddate) ; 
.AND. sn=stockn 

Copy to ILMAST for type="IL" .AND. (Date>=Begdate .AND. Date<=Enddate) ; 
.AND. sn=stockn 

Copy structure to DEM fields qty, type, date 
Select E 
Use DEM 
Select C 



Use ILMAST 

Index on REQNO to SRIL 
Use ILMAST index SRIL 
Select D 
Use RLMAST 

Index on REQNO to SRRL 
Use RLMAST index SRRL 
Select C 
If Eof() 
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@15, 25 SAY "You receive nothing from LSC between" 

@ 16, 30 SAY Dtoc (Begdate)+" - " +Dtoc(Enddate) 

@ 18, 25 SAY "Press ENTER to return...." 

Wait " " 

Close databases 
Erase RLMAST.DBF 
Erase SRRL.NDX 
Erase ILMAST.DBF 
Erase SRIL.MDX 
Erase DEM. DBF 
Release all 
Set console on 
Return 
Endif 

* To calculate the lead time of an item 

Go top 

Do while .NOT. Eof() 

Store reqno to MREQNO 
Store date to ILDATE 
Select D 
Seek Mreqno 
If EofO .OR. Bof() 

Select C 
Skip 
Loop 
Else 

Store Date to RLDATE 
Do while reqno=mreqno .AND. .NOT. Eof() 

N=N+1 

Datebal=(c->Date) - (Date) 

Totdate=Totdate+Datebal 
If rldate>date 

Store Date to Rldate 
Endif 
Skip 
Enddo 
Endif 
Select A 

Sum qty for sn=stockn .AND. tvpe="RD" .AND.; 

(date>=RLDATE .AND. date<=ILDAtE ) to leaddem 
Select E 
Append blank 

Replace qty with leaddem 
Replace type with "LD" 

Replace date with Rldate 
Store 0 to leaddem 
Select C 
Skip 
Enddo 

Store Totdate/N to Mleadtl 
store Nleadtl/30 to mleadt 
Store 0 to N 

* To get Annual average demand (1 year moving average) 

Select A 

Store "date>=begdate .AND. date<=enddate" to Condx 

Sum qty for sn=Stockn.AND.type="RD" .AND. &condx to Rdem 

Store enddate-begdate to totd 

Store Rdem*365/totd to Rdem 

Store Round( totd/30 ,0) to Nmax 

* To get standard deviation of annual demand from monthly demand 

Go top 

Store begdate to mdate 

Store " (sn=stockn.and. type=' RD ' ) " to condl 

Store " (date>=mdate+30*N .AND. date<=mdate+30*(N+l ) ) " to cond2 
Do while N < Nmax 

Sum qty for &condl .AND. &cond2 to mqty 
Select E 
Append blank 
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Replace qty with mqty 
Replace date with (maate+30*n) 
Replace type with ''DM" 

N= N+1 
Select A 
Store 0 to mqty 
Enddo 
Select E 

Do Std with "qty","Type='DM"' 
Close databases 
Erase RLHAST.DBF 



Erase SRRL.NDX 
Erase ILMAST.DBF 
Erase SRIL.NDK 
Erase DEM. DBF 
SET CONSOLE ON 
SET PROCEDURE TO 
RETURN 

* 



* Eof ANLEADT.prg 



•k 



k 



c. ANEOQ 



kkkkkkkkkkkkkkkkkkk ANEOQ • PRG kkkkkk kkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Module name , 

Author 

Date 

Purpose 



Called by 

Modules called 
Variales used. . 

Public. 
Local . . 



ANEOQ .prg 
Park, Taeyong 
OCT 1. 1987 

To calculate Economic Order Quantity ,Reoder 
Point, Safety level, and Requisition Object 
ANALYSIS. prg 
None 

STD, TODAY, 

CSC . CSL . RDEM . MEOFZ . MTZ . MSERVL . ORDERC . FRATE 



* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



kk kk k kkkkk kk kk kkkkkkkkkkkkkkkkkkk kkkkkk kkkkk kkkkkkkkkkkkkkkkkkkkkkkkkk 



Set decimals to 5 
Select C 

Use ASL index INASL 

Select B 
Use NORMAL 
Select A 

Use PROPERTY index snproper 
Set relation to SN into C 
Do while .T. 

Seek stockn 

Store "PRESENT" to title 
Clear 

Store "Is this record right? (Y/N) : " to ctitle 
Store Ltrim(str (ASL->ROP ) ) to Mrop 
Store Ltrimistr (ASL->SL) ) to Msl 
Store Ltrim(str (ASL->RO) ) to Mro 
Store Ltrim(str (ASL->0ST) ) to Most 
Do while .T. 

Set format to EOQ 
Read 

If check = "Y" 

Set format to 
Exit 
Endif 
Enddo 

* Holding cost 

If Frate=0 

Store 15.0 to Frate 
Endif 
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store (Frate/100)*Property->unitcost to Holdc 

* ordering cost 

If Orderc = 0 

Store 20.0 to Orderc 
Endif 
Do case 

Case (CSL="Y" .AND. CSC="Y" ) .OR. (CSL="N" .AND. CSC="N" ) 

? Chr(7) 

@ 10, 15 clear to 16,65 
@ 10,15 to 14,65 

@ 12,20 SAY "You have to select ONE of Choices" 

@ 15,20 Say "Press ENTER to redo " 

Store 0 to Prate , Orderc , Scost , Servl 
Store "N" to CSC,CSN 
Store "X" to check 
Wait " " 

Loop 

* Holding cost rate 

Case CSL="N" .AND. CSC="Y" 

QO = Sq^rt(2*Rdem*Orderc/Holdc) 

Msigfofb=Holdc*Q0/ (scost^Rdem) 

Select B 

Locate for sigfofb <=msigfofb 
Store Tz to Mtz 
Store Eofz to meofz 

Case CSL="Y" .AND. CSC="N" 

If Servl=0 

Store 85.000 to servl 
Endif 

Store servl/100 to mServl 
QO = Sqrt(2*Rdem*Orderc/Holdc) 

Scost=Holac*Q0/ (mServl*Rdem) 

Store 1-ServI to mpofs 
Select B 

Locate For pofs<=mpofs 
Store Tz to Mtz 
Store Eofz to meofz 

Endcase 

Store 0 to EOQ , MOST ,MROP ,MSL ,MRO 

Store Sgrt(2’'Rdem*(Orderc+Scost*Meofz) )/Holdc to EOQ 
Store Mleadtl to Most 

Store Rdem*Mleadt/12 + Mtz*Std*Sqrt(Mleadt) to Mrop 
Store Mrop - (Rdem*Mleadt/12) to Ms! 

Store EOQ+Mrop to Mro 
Store "Calculated" to title 

Store "Do you want to change the old records with this?:" to ctitle 
Select C 

Store Ltrim(str(MROP) ) to Mrop 

Store Ltrim( str (MSL) ) to Msl 

Store Ltrim( str (MRO) ) to Mro 

Store Ltrim(str ( most) ) to Most 

Seek stockn 

Set format to EOQ 

Read 

If check ="Y" 

Set format to 

Replace RO with Val(Mro) 

Replace Rop with Val(Mrop) 

Replace SL with Val(Msl) 

Replace OST with Val(Most) 

Replace date with today 
Exit 
Else 

Set format to 

Store 0 to Frate, Orderc, Scost, Servl 
Store "N" to CSC,CSN 
Store "X" to check 
Endif 
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Enddo 

Close databases 
Set decimals to 
Return 

* * £of EOQ.prg * 



d. ANPROC 

■k-k'k’k^rkic-k-k-k^'k-k^'k-k'k-k-k PROC . PRG i^-k-k-k-k-k-k-k-kic-k’k'k-k'k'k-kir-ki^'k'k'k'k^'k^-k-k-k'k'k’k'k 

* Module name . . . 

* Author 

* Date 

* Purpose 

* Variales used. 

* Public 

^ L OC 3 X 

^•k'k^ir'k-k-^'kir'k'K^'k'k'k'k^^ir-^-k-k^'k-^'k-k^ir'k-k-k'k'kir-k-k-k^'^'k-k-k^-^-^-k'k^^-^'k'k'k^^iviv'k^^iv'k-k'k^i^'k'k'k 

PROCEDURE Max 

PARAMETERS fieldname , Condition 
SET FILTER TO &Condition 
GO TOP 

Max = -99999 
DO While .MOT. EOF() 

IF &FieldName > Max 

Max = &FieldName 
Endif 
Skip 

ENDDO 

SET FILTER TO 
RETURN 

PROCEDURE Min 

PARAMETERS FieldName , Condition 
SET FILTER TO &Condition 
GO TOP 
Min = 99999 
DO While .NOT. EOF() 

IF &FieldName < Min 

Min = StFieldName 
Endif 
Skip 

ENDDO 

SET FILTER TO 
RETURN 

PROCEDURE Var 

PARAMETERS FieldName , Condition 
SET FILTER TO &Condition 
GO TOP 
COUNT TO N 

SUM (StFieldName) TO TOT 
SUM(&FieldName 2) TO TOTsq 

Correction = TOT 2/N 

Var = (TOTsq - Correction) / (n-1 ) 

SET FILTER TO 
RETURN 

PROCEDURE Std 

PARAMETERS FieldName , Condition 
SET FILTER TO ScCondition 
GO TOP 
COUNT TO N 

SUM(StFieldName) TO TOT 
SUM(&FieldName 2) TO TOTsq 

Correction = TOT 2/N 

Variance = (TOTsq - Correction)/(n-l) 



it '-/Vrf y 

Park, Taeyong 
Sept 30. 1987 

Procedures for calaulating statics 

FieldName 
Max. Min. Std. Var 
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Std = SQRT(Variance) 
SET FILTER TO 
RETURN 



PROCEDURE Mzulu 
PARAMETER XDATE 

STORE "01/01/"+substr(" 

STORE (CTOD("&XDATE") - 
STORE SUBSTR("&XDATE'' ,8 
RETURN 

* * EOF ANPROC. Procedure* 



&XDATE",7,2) to Zlday 
CTOD(Zlday)+l) TO Z2DAY 
)+SUBSTR(STR(1000000+Z2day) 



,8,3) to MZULU 



■k 
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5. MANAGEFL 



a. MANAGEFL MENU 

•k'k'k'k'k'k'k'k'k-k-k-k^^'k-^-k-k-k MANAGEFL • PRG :k'k'k'k'k'k:k'k'9<:'k'k:k'k-k-k-k-k-k'ki<:‘^ir'k:k-k'k'k-k-k-k'k 

* Program.: Hanagefl.PRG * 

* Author..: PARK, TAEYOMG * 

* Date : AUG 21, 1987 * 

* Notice..: Copyright 1987 * 

* Motes...: Menu file for file management system, called by pmain.prg * 

X A 7C X ^ 5^ :;*c A A A A ^ 7c A X X A A K 7^ ^ A X X A K A X 7T X 

Do while .T. 
check = "X" 
rr FAR 

@1,15 TO 3,55 double 
@ 4,1 TO 23,77 
@ 6,3 TO 21,37 
@ 5,4 TO 7,20 
@ 6,5 SAY SPACE(15) 

@ 6,41 TO 12,75 
@ 5,42 TO 7,59 
@6,43 SAY SPACE (16) 

@ 14,41 TO 21,75 

@ 13,42 TO 15,59 

@ 14,43 SAY SPACE(16) 

@2,17 SAY "Management of files" 

@6,6 SAY " Edit files" 

@6,44 SAY " Addition" 

@ 14,44 SAY "Information" 

@ 8,47 SAY "l.To add Customer (Cl)" 

@ 9,47 SAY "2. To add Property (SN)" 

@ 10,47 SAY "3. To add ASL (SN)'' 

@ 9,7 SAY "4. To change Customer (Cl)" 

@ 11,7 SAY "5. To change Property (SN)" 

@13,7 SAY "6. To change ASL (SN)" 

@ 15,7 SAY "7. To change Master (SN+REQNO)" 

@17,7 SAY "8. To change Batch (SN+REQNO)'^' 

@ 20,7 SAY "9. Query on files" 

@ 16,47 SAY "Today is " 

@ 16,60 SAY today 
@ 18,43 SAY "Stock number : " 

@ 19,55 SAY "(Or/And)" 

@ 20,43 Say "Customer code : " 

SET COLOR TO N/W 

@ 18,59 SAY Stockn pict "9999-99-999-9999" 

@ 20,59 SAY mci pict "9999" 

SET COLOR TO 
STORE "" TO SEL 
@ 22,58 SAY SEL 

@ 22, 8 SAY "Enter Selection (1 - 9, or 0 to go to mainmenu) : •. I" 

* The following lines are for select loop 

i=0 

DO WHILE i=0 
i=INKEY() 

@ 22,58 SAY "" 

IF UPPER(CHR(i))$"0l23456789" 

@ 22,58 SAY CHR(I) 

EXIT 
END IF 
i=0 
ENDDO 

Do case 

Case CHR(I) = '1' 

@ 18,59 SAY "XXXX-XX-XXX-XXXX" 

@ 20,59 get mci pict "9999" 

READ 
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Case 



Case 



Case 



Case 



Case 



Case 



DO ADDCUST 



CHR(I) = 


' 2 ' 


@ 18,59 


get 


@ 20,59 


SAY 


READ 




DO ADDPROP 


CHR(I) = 


'3' 


@ 18,59 


get 


0 20,59 


Say 


READ 




DO ADDASL 


CHR(I) = 
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0 18,59 


SAY 


0 20,59 


get 


READ 




DO EDITCUST 


CHR(I) = 


'5' 


0 18,59 


get 


0 20,59 


Say 


READ 




DO EDITPROP 


CHR(I) = 


• 6 ' 


0 18,59 


get 


0 20,59 


Say 


READ 





stockn Diet "9999-99-999-9999" 
"XXXX" 



stockn Diet "9999-99-999-9999" 
"XXXX" 



"XXXXX-XX-XXX-XXXX' 
mci pict "9999" 



stockn pict "9999-99-999-9999" 
"XXXX" 



stockn pict "9999-99-999-9999" 
"XXXX" 



DO EDITASL 
CHR(I) = '7' 

@ 18,42 clear 
@ 18,43 SAY " 
"9999-99-999-9999 



to 20, 65 

Stock number : " get stockn pict: 

QQQQII 



@ 19,43 Say "Customer code : " get mci pict "9999" 
d 20,43 Say "Transaction type : " get mtype pict "!!" 
READ 

DO EDITMAST 
Case CHR(I) = ' 8 ' 

0 18,42 clear to 20, 65 

0 18,43 SAY "Stock number : " get stockn pict; 
"9999-99-999-9999" 

0 19,43 Say "Customer code : " get mci pict "9999" 

0 20,43 Say "Transaction type : " get mtype pict "!!" 
READ 

DO EDITBAT 
Case CHR(I) = '9' 

Do Manageq 
CHECK = "I" 

CASE 1=27 .OR. CHR(I) = 'O' 

? Chr(7) 

RETURN 

OTHERWISE 

? CHR(7) 

ENDCASE 

ENDDO 

CLOSE DATABASES 
RETURN 



* Eof: Managefl.prg * 



* 



b. ADDASL 

-k-k-k-k-k-k-k-k-k:k-k-k-k-k-k-k-k'k'ki<:-k ADDASL. PRG •k-k-k-k-k-k-k-k'kiK-k-kiK-k’k-k-k'k'k’k'k'ki<:'k'k’k'k'k 



* Module name....: ADDASL. prg 

* Author : Park,Taeyong 

* Date : Aug 25. 1987 

* Purpose Add Authorized Storage List item(ASL) into 

* ASL file by manual 

* Called by MANAGEFL.prg 
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* Modules called : None ^ 

* Variales used. . ; * 

* Public.: CHECK. * 

:k’k:ki^:k'ki^i^i^'ki^'ki^i^ir'k'k'k'k'k'k'kirir‘k'k'ki^i^irir:kiK'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k 



If stockn = " " 

Return 
Endif 
S 0 1. 6 c ^ A 

Use ASL INDEX INasl 
Select B 

Use property INDEX Snproper 
Select A 

* Set up loop for adding new ASL. 

Store "X" to dcheck, fcheck 
Dloop = .X. 

Do while Dloop 
Clear 

* check to see if stock number already exists. 

Seek StockN 
Do case 

Case found() 

@ 15,10 say SN + " is Already exist in ASL file !" 
@17, 20 say " Do you want to change ? " get check 
Read 

Check =upper (check) 

If check = "Y'‘ 

Clear 

Set format to Editasl 
Read 

Set format to 
Endif 

Case .not. found() 

Clear 

Append blank 

Replace SN with StockN 

Replace date with date() 

Do while .1. 

Set format to ASL 
Read 

If Upper (dcheck) = "Y" 

Set format to 
Exit 
Endif 
Enddo 



Endcase 

Store "X" to tcheck 
Clear 

@ 17,20 say " Do you want to check property file? 
Read 



Tcheck = upper (tcheck) 
If Tcheck = "Y'' 



H 



get tcheck 



Select B 
Clear 

Seek StockN 
Do case 

Case foundO 

Store "X" to tcheck 

@ 15,15 say StockN + " is already exist 
@ 17,20 say " Do you want to change ? " 
Read 

Tcheck = upper(tcheck) 

If tcheck = "Y" 



Clear 

Set format to Editprop 
Edit recnoO 
Set format to 
Endif 

Dloop = .F. 

Case .NOT. found() 



in property file 
get tcheck 



H 



1-41 



Clear 

Append blank 

Replace SN with StockN 

Replace date with date() 

Do while .T. 

Set format to prop 
Read 

fcheck = upper( fcheck) 

If fcheck = "Y" 

Replace tvalue with unitcost * onhand 
Set format to 
Dloop = .F. 

Exit 

Endif 

Enddo 

Endcase 

Endif 

Dloop = .F. 

Enddo 
Close all 

Store space(16) to stockn 

Release all 

Return 

* * £0F Addasl.prg * 



c. ADDPROP 



ADDPROP . PRG kkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkk kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Module name . . , . 

Author 

Date 

Purpose 

Called by 

Modules called 
Variales used. . 

Public. 



ADDPROP .prg 
Park, Taeyong 
Aug 20. 1987 

Ada new properties into property file 

MANAGEFL.prg 

None 

TODAY 



k 

k 

k 

k 

k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



If StockN = " " 

Return 
Endif 
Clear 
Select A 

Use ASL INDEX INasl 
Select B 

Use property INDEX Snproper 

Today = date ( ) 
check = "X" 
stock = .T. 

Do while Stock 
clear 



Seek StockN 
Store "X" to fcheck 
Do case 

Case found() 
clear 

Store "X" to tcheck 

@ 15,10 say StockN + " is already exist in property file 
@17, 20 Say "Do you want to change it NOW ?" get tcheck 
Read 



Tcheck = upper ( tcheck) 
If tcheck = "N" 



clear 

Stock = .F. 
Exit 



I 
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Case 



Endif 

Set format to Editprop 
Edit recno() 

Replace tvalue with unitcost * onhand 

Set format to 

Exit 

•NOT. found() 

Append blank 

Replace SN with StockN 

Replace date with date() 

Do while .T. 

Set format to prop 
Read 

fcheck = upper(fcheck) 

If fcheck = "Y'' 



Replace tvalue with unitcost * onhand 
Set. format to 
Stock = .F. 

Exit 

Endif 

Enddo 



Endcase 

clear 

Store "X" to acheck 

@15, 20 SAY "Is this " + stockN + " ASL item ?" get acheck 
Read 

Acheck = upper (acheck) 

If acheck = "Y" 

Select A 
Seek StockN 
Store "X" to dcheck 
Do case 

Case foundO 

@ 20,10 say SN + " is Already exist ! , ; 

Do you want to change ? " get check 

Read 

check =upper (check) 

If check = "Y'' 

Set format to EDITASL 
Edit RecnoO 
Set format to 
Exit 
Endif 

Case .not. found() 

Append blank 

Replace SN with StockN 

Replace date with date() 

Do while .T. 

Set format to ASL 
Read 

Dcheck = upper (dcheck) 

If dcheck = "Y" 

Set format to 
Exit 
Endif 
Enddo 



Endcase 
Endif 
Enddo 
Close all 

Store space(16) to stockn 

Release all 

Return 

* * Eof Addprop.prg * 



* 
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d. ADDCUST 



•k'k-k'k'k'k'k'k'k'k'k:k-k-k-k-k-k-k-k ADDCUST . PRG "k "k "k "k -k -k -k "k 'k "k "k -k -k -k -k -k -k -k :k "k "k "k -k -k -k -k -k -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* Module name....: ADDCUST. prg * 

k 
k 
k 
k 
k 



^ Author. 

* Date 

Purpose . . . 
Called by. 

* Modules called 



ADDCUST. prg 
Park, Taeyong 
Aug 25. 1987 

Add customer into customer file 
MANAGEFL.prg 
None 



kkkkkkkk-Kkkkkkkkkk kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Use Customer index Cicust 
Cust= .T. 

Store "Y" to Dcheck 
Do v;hile Cust 

* check proposed customer code 

Seek Mci 
Do case 

Case Mci = " " 

Clear 

Cust = .F. 

Case foundO 

@ 10,15 clear to 15,65 
@ 10,15 to 15,65 

d 12,20 say "Customer code " + Mci + " Already exists 

d 13,27 Say "Press any key to return " 

? chr(7) 

Mci = space(4) 

Wait " " 

Case .not. found() 

Append blank 
Replace Cl with mci 
Replace date with date() 

Do while .T. 

Set format to cust 
Read 

If dcheck = "Y" 

Set format to 

Replace fundoh with fund - expend 
Mci = space(4) 

Exit 

Else 



Chr(7) 

Endif 

Enddo 



Endcase 

Enddo 

Store mtype to mtypel 
If mtypel <> " " 

Return 
Endif 
Close all 
Release all 
Return 

* * £ 0 p addcust.prg * 



! " 



k 



e. EDITASL 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkk kkkkkk EDITASL. PRG kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* Module name....; EDITASL. prg * 

Park, Taeyong * 

Aug 28. 1987 * 

Edit(delete or change) contents of entry * 



* Author 

* Date . . . 

* Purpose 
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* of ASL file. * 

* Called by MANAGEFL.prg * 

* Modules called : ASL.fmt * 

Use ASL index INASL 
Clear 

More = .T. 

Do while More 
Seek STOCKN 
Do case 

Case STOCKN = " " 

More = .F. 

Case found() 

Set format to EDITASL 
Edit recnoO 
Set format to 

Store "Y" to check 

@15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict " 
Read 

If check = "Y" 

Set talk on 
Pack 

Set talk off 
Stockn = space(16) 
more = .F. 

Endif 

Case .NOT. found() 

@ 15,30 Say "No such STOCK NUMBER code in the file !" 

More = .F. 

Stockn = space(16) 

Wait 

Endcase 

Enddo (while more) 

Close all 
Release all 
Return 

* * Eof EDITPROP.prg * * 



f. EDITBAT 



•k 



Module name 

Author 

Date 

Purpose .... 
Called by. . 
Modules called 
Variales used. 

Public 
Local. 



EDITBAT. prg 
Park, Taeyong 
Aug 28. 1987 
Edit Batch file 
MANAGEFL.prg 
EDITBAT. fmt 

STOCKN, TODAY, MVNC 



********************************************************************** 



Use Batch index SNCIBAT 

Clear 

More = .T. 

Do while More 

Store space(16) to MVNC 

@ 15,10 Say "Enter Voucher number if you know ; " get mvnc 

Read 

Do case 

Case STOCKN = " " .AND. Mvnc = " " 

Clear 
Close all 



145 



Return 

Case stockn # " " .AND. Mvnc = " " 

Search = stockn 

Case stockn # " " .AND. Mvnc # " " 

Search = stockn + upper(mvnc) 

Case stockn = " " .AND. Mvnc # " " 

Search = upper(Mvnc) 

Endcase 
Seek search 
If foundO 

Set format to EDITBAT 
Edit recno() 

Set format to 

Store "Y" to check 

@ 15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict "!" 
Read 

If check = "Y" 

Set talk on 
Pack 

Set talk off 
Stockn = space(16) 
more = .F. 

Endif 

Else 

0 15,10 Say "No such STOCK NUMBER or Voucher Number in the file !" 
More = .F. 

Stockn = space(16) 

Wait 

Endif 

Enddo 

Close databases 
Release all 
Return 

* * £q£ EDitbat.prg * * 



s. EDITCUST 



Vr Vc yc ★ Vc yc X yc yc yc Vc yc yc Vc Vc yc yc yc X Vc Vc yc yc Vc ^ Vc yc Vc 7>c yc Vc yc yc yc yc ^ 



Module name . . . . 

Author 

Date 

Purpose 

Called by 

Modules called 
Variales used. . 

Local. 



EDITCUST. prg 
Park, Taeyong 
Aug 28. 1987 

Edit Customer record from customer file 
MANAGE FL. prg 
EDITCUST. fmt 

MCI 



yt 

yc 

yt 

yc 

yc 

yc 

yc 

yc 



yc yc yc yc yc yc yc yc yc yc yc yc yc X yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc yc 



Use CUSTOMER index CICUST 

Clear 

More = .T. 

Do v;hile More 
Seek Mci 
Do case 

Case mci = " " 

More = .F. 

Case found() 

Set format to EDITCUST 
Edit recnoO 
Set format to 

Store "Y" to check 

0 15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict " 
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Read 

If check = "Y" 

Set talk on 
Pack 

Set talk off 
Mci = space(4) 
more = .F. 

Endif 

Case .NOT. found() 

(? 15,35 Say "No such customer code in file !" 
More = .F. 

Mci = space(4) 

Wait 

Endcase 

Enddo (while more) 

Close all 
Release all 
Return 

* * Eof EDITcust.prg * 



h. EDITMAST 

7^ A 7^ 7^ 7^ 7^ 7^ 7^ 7^ * 

EDITMAST • PRG 

7^ 7^ A A 7^ 7^ 7^ 7^ ★ 7^ ^ ★ 7^ 7^ 7^ 7^ 7^ ★ A 7^ 7^ 7^ 7^ 7^ ★ 7^ 7^ 

* Module name....: EDITMAST. prg * 

* Author : Park, Taeyong * 

* Date : Aug 28. 1987 * 

* Purpose : Edit master file * 

* Called by ; MANAGEFL.prg * 

* Modules called : EDITMAST. fmt * 

* Variales used..: * 

* Local..: STOCKN.MCI * 

Use MASTER index SCTMAST 
Clear 

@ 10,10 to 15,62 
@ 11,30 Say "Warning!" 

@ 13,15 Say "This process is not allowed to every person," 
d 14,15 Say " Enter password to continue." get mpass pict "!'.!!" 

Read 

If pass <> mpass 
Close all 
Return 
Endif 

Set filter to SN=stockn .AND. ci=mci 
Clear 

@ 10,10 Say "Enter the transaction type ; " get mtype Pict "I!" 

Read 

More = .T. 

Do while More 
Seek Mtype 
Do case 

Case STOCKN = " " 

More = .F. 

Case found() 

Set format to EDITMAST 
Edit recnoO 
Set format to 

Store "Y" to check 

d 15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict 
Read 

If check = "Y" 

Set talk on 
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Pack 

Set talk off 
Mci = space(4) 
Stockn = space(16) 
more = .F. 

Endif 



Case .NOT. found() 

@ 15,35 Say "Mo such STOCK NUMBER code in file !" 
More = .F. 

Stockn = space(16) 

Wait 

Endcase 

Enddo (while more) 

Set filter to 
Close all 
Release all 
Return 

* _* Eof EDITMAST.prg * 



i. EDITPROP 



i^-k'ki^'k-k-k-k'k-k'k'k-k-k-k'k-k-k-k-k-k'k'k'k-k'k'k-k'k-k'k-k-k-k-k'k'k-k'k-k'k'k-k-k-k'k'k-k-k-k-k-k'k-k-k-k-k-k-k-k-k'k'k-k-k-k-k-k-k-k-^ 

■k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k EDITPROP . PRG kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Module name 

Author 

Date 

Purpose .... 
Called by. . 
Modules called 
Variales used. 

Public 
Local. 



EDITPROP. prg 
Park, Taeyong 
Aug 28. 1987 
Edit property file 
MAMAGEFL.prg 
EDITPROP. fmt 



STOCKN. MCI 



k 

k 

k 

k 

k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



Use PROPERTY index SNPROPER 
Clear 

More = .T. 

Do while More 
Seek STOCKN 
Do case 

Case STOCKN = " " 

More = .F. 

Case found() 

Set format to EDITPROP 
Edit recnoO 
Set format to 

Store "Y" to check 

@15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict 
Read 

If check = "Y" 

Set talk on 
Pack 

Set talk off 
Mci = space(4) 

STOCKN=SPACE(16) 
more = .F. 

Endif 

Case .NOT. found() 

@ 15,35 Say "No such STOCK NUMBER code in file !" 

More = .F. 

Mci = space(4) 

Wait 

Endcase 
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Enddo (while more) 

Close all 
Release all 
Return 

* * Eof EDITPROP.prg * 



j. MANAGEQ 



•k^'k'k^:k^^9^'k^^i:^7K^'k^9r MANAGEQ • PRG ^'k^^9^^^'k^'k:k^^^-k^'k^'k9r7K^^^'k'k^'k:k'k-k 



Module name 

Author 

Date 

Purpose .... 
Called by. . 
Modules called 
Variales used. 

Public 
Local 



MANAGEQ. PRG 
Park, Taeyong 
OCT 28. 1987 

CONSULT CONTENTS OF FILES 
MANAGE FL.prg 
SETUP. FRM 



STOCKN.MCI 



■k 

k 

k 

k 

k 

k 

k 

k 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



close databases 
Clear 

Set talk off 
set echo off 
Use property 

Index on Class to Clssprop 

Use Property index snproper , Clssprop 

Select B 

Use ASL index inasl 
Select A 

Set relation to SN into B 



title = "Query on Stock number" 

Hok="Y" 

Store space(16) to stockn 
Store " " to Mclass,Hconf 
Do while .T. 

Clear 

0 4,25 say title 
0 8,15 Say "Options" 

0 11,17 Say "1. Stock number" 

0 12,17 Say "2. Class" 

0 13,17 Say "3. All" 

0 15,17 Say "4. Return to main menu" 

0 17,15 Say "Enter Option: " 

0 2,1 to 23,75 
Store "" to sel 
0 17,29 Get sel 
i=0 

Do while i=0 
i=inkey( ) 

If chr(i)$"1234" 

Exit 

Endif 

i=0 

Enddo 

0 17,29 Say Chr(i) 

If chr(i)=^4" 

Exit 
Endif 
Do case 

Case chr(i)="l" 

0 11,36 Say "Enter stock number " ; 
Get Stockn pict "9999-99-999-9999" 
Read 

If Stockn=" " 

? Chr(7) 
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Loop 

Endif 

Set filter to Sn='&Stockn' 

Set Order to 1 
Do setup 

Report form stockrpl 
Set filter to 
Case chr(i)="2" 

@ 12,36 Say "Enter Class Number.-" Get Mclass pict "9" 

@ 13,38 Say "0| for class 10" 

Read 

If Mclass=" " 

? Chr(7) 

Loop 

Endif 

Set filter to Class= ' ScMclass ' 

Set Order to 2 
Do setup 

Report form stockrpl 
Set filter to 
Case chr(i)="3" 

@ 13,26 Say "<- Is this your select(Y/N) Get Mconf pict " 
Read 

If Mconf="N" 

? Chr(7) 

Loop 

Endif 

Set Order to 2 
Do setup 

Report form stockrpl 
Otherwise 
Loop 

Endcase 

If Upper(Mok)="Y" 

Set console on 
Set print off 
Set Order to 1 
Else 

0 24,17 Say "Press any key to continue..." 

V/ait"" 

Endif 

Clear 

Enddo 

Close databases 

Release all 

Erase clssprop.ndx 

Store space(16) to stockn 

Clear 

Return 

* * Eof MANAGEQ.prg * * 
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APPENDIX F 
SCREEN FORMAT 



1 . 



TRANSACT 
a. BATCH 



Module nSITie . • • • : Bstch.fmt 

A:^:‘c3k^:‘c3‘c:‘r7lf7^3‘c^xA7l:A7^3k^A;iT3‘c:>C3hr;<cAx7^7k’;k:xA7>C5k’X3'c7'r;>C7k:7>cyr5'c7>r5^:yc;k’7t5'c:‘cyc:^3'c5'c^ 

for 

II 



@ 


2, 


11 


SAY 


@ 


3, 


47 


SAY 


@ 


3, 


61 


SAY 




5, 


8 


SAY 




5, 


25 


SAY 


@ 


6, 


8 


SAY 


(a 


8, 


8 


SAY 


(? 


8, 


53 


GET 


@ 


9, 


10 


SAY 


@ 


12, 


18 


SAY 


(? 


12, 


32 


GET 


@ 


14, 


13 


SAY 


@ 


14, 


32 


GET 


(3 


16, 


18 


SAY 


@ 


16, 


32 


GET 


@ 


16, 


39 


SAY 


@ 


16, 


47 


GET 


@ 


16, 


56 


SAY 


@ 


18, 


18 


SAY 


@ 


18, 


32 


GET 


@ 


23, 


30 


SAY 


@ 


1, 


5 


TO 


@ 


4, 


4 


TO i 




7 , 


5 


TO 




10, 


5 


TO : 


@ 


8, 


38 


TO 



issue" 



'Requset 
'Today . , 
today 

'Requested From :" 

CUSTOMER->CDESC 

' Send To : The 150 Infantry Division" 

'Type of transaction : (RD) Request No :" 

MREQNO PICT "9999 !! -9999-9999" 

'Request for Issue to Div ( Customer's)' 

'Stock Number :" 

BATCH->SN pict "9999-99-999-9999" 

'Description ;" 

PROPERTY->NM 
' Unit :" 

PROPERTY->UNIT 
'Price :" 

PROPERTY->UNITCOST 
1 ^11 

' Quantity s" 



3, 40 
!0, 70 
7, 69 
.0, 69 
9, 38 



get batcheck pict "!" 



•* Eof .batch. fmt * * 



b. MAST 



9^i<:i^i^i^9^i^i^i^9f:i^i^i^9<:i^i^i^i^i^i^-k-k-k-k-k'k'ki^:k-k-k-k-ki^-k-k’k-k-ki<:'k’k-k-k’k'k-k-k'k'k-k-k-k-k’k’k-k'k-k’k’k-k'k-k’k’k’ki^^9<: 

^i<::k'k-k'kTk'k-k'k'k^'k-k'k-k-k-k Module name. • • • : Mast.fmt 

iki<:'k9f:'k-k-k:k-k'k'ki^'k'k'k'k'k'k'k'k'k'k9zik-k-k-k-k'k'k'k'k'k'k'k'k'k'k:k'k-k-kik-k-k:k-k'k'k'k-k‘kik'k'k'k-k'k'k'k'k‘k'k'ki^'k'k^'k:k 



@ 


2, 


9 


SAY 


@ 


3, 


43 


SAY 


@ 


3, 


56 


Say 


@ 


5, 


7 


SAY 


@ 


6, 


7 


SAY 


@ 


8, 


6 


SAY 


0 


8, 


48 


GET 


@ 


9, 


6 


SAY 


@ 


9, 


34 


SAY 




9, 


50 


GET 




12, 


19 


SAY 




12, 


32 


GET 


@ 


14, 


19 


SAY 


(s> 


14, 


32 


GET 


@ 


16, 


34 


SAY 


@ 


16, 


41 


GET 


@ 


18, 


19 


SAY 


@ 


18, 


32 


GET 


@ 


18, 


50 


SAY 



mtitle 

"Today is ... " 

Today 

mhost + mcdescl 
" "+mcust + mcdesc2 

"Type of transaction : Voucher No ;" 

VNl PICTURE "9999! 1-9999-9999" 

Mtypea 

"Request Number.-" 

MREQNO PICTURE "9999 !! -9999-9999" 

"Stock Number:" 

MASTER->SN PICTURE "9999-99-999-9999" 
"Description :" 

PROPERTY->NM 
"Unit :" 

PROPERTY->UNIT FUNCTION "!AAA" PICTURE "XXXX" 
"Quantity :" 

MASTER- >QTY 
"Reusable? : " 
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18, 


62 


GET 


MASTER->Misc 


@ 


20, 


19 


SAY 


"Price :" 


@ 


20, 


32 


GET 


PROPERTY->UNITCOST 


0 


23, 


30 


SAY 


"Is this record correct ? 


0 


4, 


4 


TO : 


21, 71 


0 


1, 


6 


TO 


3, 40 


0 


7, 


5 


TO 


7, 70 


0 


10, 


5 


TO 


10, 70 


0 


8, 


32 


TO 


9, 32 



* Eof Mast.fmt * 



zcheck pict 



"X" 



* 



c. TURNIN 

kkkkkkkkkkikkk SCTSCn foriTlSt fOT TUmin DrOrSm '^'^'^'^'^'^'^'^'^'^'^'^'^'^'^'^'^kkk'kir'k 

kk'kkk'kk'k'k'kkyr'k'kkkkkk-kkk'kkkk'k'kkk-k'kkkkkkk k:^ "k 7^ k: k: "k k: "k "k k: k: "k "k "k k k kkkkkkkkkkkkkk 



0 


2, 


11 


SAY 


"Request for turn-in" 




0 


3, 


46 


SAY 


"Today " 




0 


3, 


58 


SAY 


Today 




0 


5, 


6 


SAY 


"From :" 




0 


5, 


13 


SAY 


MCDESCl 




0 


6, 


8 


SAY 


"To :" 




0 


6, 


13 


SAY 


MCDESC2 




0 


8, 


6 


SAY 


"Type of transaction : (TD) " 




0 


9, 


10 


SAY 


"Request for turn-in Request 


No : 


0 


9, 


52 


GET 


BATCH->REQNO PICTURE "9999 !! -9999-9999" 


0 


11, 


21 


SAY 


"Stock number :" 




0 


11, 


37 


GET 


BATCH->SN PICTURE "9999-99-999-9999" 


0 


13, 


21 


SAY 


"Description :" 




0 


13, 


37 


GET 


PROPERTY- >NM 




0 


15, 


16 


SAY 


"Unit :" 




0 


15, 


25 


GET 


PROPERTY->UNIT PICTURE "!XXX" 




0 


15, 


37 


SAY 


"Reuseable? :" 




0 


15, 


51 


GET 


BATCH->MISC 




0 


17, 


16 


SAY 


"Price :" 




0 


17, 


25 


GET 


PROPERTY->UNITCOST 




0 


17 , 


37 


SAY 


"Quantity :" 




0 


17, 


51 


GET 


BATCH- >QTY 




0 


20, 


34 


SAY 


"Is this record correct ?" Get Zcheck 


pict 


0 


1 , 


5 


TO 


3, 40 




0 


4, 


4 


TO 19, 70 




0 


7, 


5 


TO 


7, 69 




0 


4, 


36 


TO 


4, 36 




0 


4, 


37 


TO 


4, 37 




0 


10, 


5 


TO 10, 69 




0 


8, 


37 


TO 


9, 37 





* Eof TURNIN. fmt * 



d. CANCMAST 



********************************************************************** 
kkkkkkkkkkkkkkkkkk ModulS 1181X16. • • • : CANCMAST « FMT 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



0 


2, 


9 


SAY 


0 


3, 


44 


SAY 


0 


6 , 


25 


SAY 


0 


6, 


40 


SAY 


0 


8, 


25 


SAY 


0 


8, 


40 


SAY 


0 


10, 


24 


SAY 


0 


10, 


40 


SAY 


0 


13, 


13 


SAY 


0 


13, 


24 


SAY 


0 


13, 


33 


SAY 


0 


13, 


41 


SAY 



"Cancel Request for issue item" 
"Today . . "+D toe (date ( ) )+" ("+Zulu+" 
"Stock number :" 

MASTER->SN 
"Customer Code:" 

MASTER->CI 
"Request number:" 

MASTER->REQNO 
"Quantity :" 

MASTER->QTY 
"Price :" 

MASTER->UNITCOST 



II 
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@13, 51 SAY "Date :(" 

@13, 58 SAY MASTER->DATE 
@ 13, 62 SAY ")" 

@17, 14 SAY "Is this record what you want to cancel? (Y/N) " ; 
Get checks pict "!" 

@ 1, 6 TO 3, 40 

@4, 5 TO 15, 70 
@ 16, 5 TO 18, 70 

* * Eof CANCMAST . fmt * 



MANAGEFL 
a. ASL 



********************************************************************** 
7^ 7^ 7>c 7^ 7^ 7k: 7^ 7^ 7k: :Ac 7*c 7^ 7^ 7^ ModulS nSrnS . • • • : Asl*£mt. ^ 7k: 7k: 7k: 7k: Tkr 7k: 7k: 7k: 7k: 7k: Tkr 7k: Tkr 7^ 7k: 7k: 7k: 7kr 7k: 7k: Tkr 

:Ac:Ac:A::^X7k:7k::A::A:7k:7k:7k:7k::^:^7k:7k::Ac:A:7k:7k:7k:7k::A:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k::*:7k:7k::A::A:7*c7k:7k:yc:A::^7k:7k::^c7k:}^7k:7k::A:7k:7^ 



@ 


2, 


8 


@ 


3, 


45 


@ 


6, 


20 


@ 


6, 


44 


@ 


9, 


20 


@ 


9, 


44 


@ 


11, 


20 


@ 


11, 


44 


@ 


13, 


20 


@ 


13, 


44 


@ 


16, 


20 


@ 


16, 


44 


@ 


16, 


50 


@ 


18, 


18 


@ 


18, 


44 


@ 


23, 


35 


@ 


1, 


5 


@ 


4, 


4 



SAY "Authorized storage list file" 

SAY "Today is " get today 

SAY "Stock number 

GET Stockn PICTURE "9999-99-999-9999" 

SAY "Reorder Point 
GET ASL->ROP 
SAY "Safety Level 
GET ASL->SL 

SAY "Requisition Objective 
GET ASL->RO 

SAY "Order Shipping Time :" 

GET ASL->OST 
SAY "days" 

SAY "Resource control number ;" 

GET ASL->RCN PICTURE "9999" 

SAY " Is this record correct ? : " get dcheck pict 
TO 3, 40 
TO 20, 70 

* Eof.Asl.fmt * 



! " 



"k 



b. CUST 



7k:7k:7k:7^7^7k:7^7k:7*c7k:7k:7k::Ac7^7k:7^7k:7^7k::^7k::A:7^:Ac7^:A::A:7k:7k:7k::Ac7k::*C7k:7k:7k:7k:7k::^7k:7k:7k::^7k:7k:7k:7k::^:Ac7k:7*c:^:^:*c:^:Ac:Ac7*t7k::*c:Ac7k:7k::^:*c^ 

***** cust.fmt (CUSTOMER file screen format called by ADDCUST) ******** 

7k:7k::^7k::Ac:^:^7k:7k:7k::^7k::^7k:7k:x7k::^7k:7k:7k:7k:7k:7k::^C7k:7k::#c:^:^C7k:7k:7k:7k:7k:7k::^7k:7k:7k::^7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:7k:K7k:7k:7k:7k:7k:7k:7k:7k:A7k:7k:7k:7k::Ac:*:^ 



@ 


2, 


13 


@ 


3, 


43 


@ 


3, 


62 


@ 


6, 


13 


@ 


6, 


28 


@ 


6, 


47 


@ 


6 , 


57 


@ 


8, 


22 


@ 


8, 


28 


@ 


10, 


19 


@ 


10, 


28 



PICTURE 



@ 


12, 


28 


@ 


12, 


37 


@ 


15, 


18 


0 


15, 


28 


@ 


15, 


40 


@ 


17, 


28 


@ 


17, 


40 


@ 


18, 


22 



SAY "Customer File" 

SAY "Today is " 

SAY CUSTOMER->DATE 
SAY "Customer Code" 

SAY CUSTOMER->CI 
SAY "Priority" 

GET CUSTOMEfl->PRIORITY 
SAY "Name" 

GET CUSTOMER->CDESC 
SAY **AddiTGSS** 

GET CUSTOMER->ADDRESS FUNCTION "S30"; 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
GET CUSTOMER->ZIPCODE 
SAY "Zip code" 

SAY "Fund :" 

GET CUSTOMER- > FUND PICTURE "9999999.99" 

SAY "$ Allowed" 

GET CUSTOMER->EXPEND PICTURE "9999999.99" 

SAY "$ Expediture" 

SAY " " 
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II t II 



@ 23, 35 SAY "Is this record correct ? " get dcheck pict 
@ 1, 6 TO 3, 40 
@ 4, 5 TO 20, 70 

* * Eof CUST.fmt * 



c. PROP 



7^ 7^:^ 7^ 7^ 



•kiK'k-k-k-k-k-k-k-k:k:k-ki<-k-kir9K:kiK:k:k-k:ki^iK-k:k-kiK-k-k-k:ki^-k-k-k-k-k-k-kiKi<:k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k’k’k'k-k 
■k X -k -k -k -k -k -k •:> 
k kkkkkkkr 



Kkkk I^ociulC n 3 ni 6 . . . . • Prop.fmt ’^^’^’^’^’^’^7*C7^7kT^:^7^7^7k7^7^7^7^:^:^7^7^:^:^7k:Ar 

r7t7k7V7^7^^^7^7^7k:^7^x^7^7^^:*:7t7k7k^7^^7':7t7^:Ar7^:^7^7^:Ar7^'^7^7^:Ar7k7^;Ar:^:^:A:7k7kA7^7Sc:^:^:Ar7k7^:^:^:^ 



@ 


2, 


12 


SAY 


"Property Book file" 


(a 


3, 


44 


SAY 


"Today " 


0 


3, 


62 


SAY 


Today 


0 


6, 


22 


SAY 


"StocK number 


0 


6, 


38 


GET 


Stockn PICTURE "9999-99- 


0 


7 , 


22 


SAY 


" Serial NO 


0 


7, 


38 


GET 


PROPERTY->SERIALNO 


0 


8, 


38 


GET 


PROPERTY- >NM 


0 


8, 


22 


SAY 


" Description 


0 


10, 


25 


SAY 


" Unit 


0 


10, 


38 


GET 


PROPERTY->UNIT 


0 


10, 


46 


SAY 


"Class :" 


0 


10, 


54 


GET 


PROPERTY->CLASS PICTURE 


0 


13, 


25 


SAY 


" On hand ;" 


0 


13, 


38 


GET 


PROPERTY->ONHAND 


0 


15, 


25 


SAY 


" Price :" 


0 


15, 


38 


GET 


PROPERTY->UNITCOST 


0 


15, 


47 


SAY 




0 


16, 


25 


SAY 




0 


18, 


20 


SAY 


"Is this combat essential 


0 


18, 


54 


GET 


PROPERTY->ESSENCE 


0 


23, 


35 


SAY 


"Is this record correct ? 


0 


1 , 


5 


TO 


3, 40 


0 


4, 


4 


TO 20, 70 



get fcheck pict " ! " 



d. EDITBAT 



7^7^7<!r7^:^7^A7^:A:7^:^:A:7^7^7^7^:^:A::^:^7^7^:^:^7^:A:yt7^7^7<t:*:7*C:^7^7^r7<t7<t7*C7<t7^A7*C7k7^7*C^A^7^7^7^A7^7^7‘c^7^7^:7^7^7<C7^7^7^7^7^7k^7^7^7«t7^ 



***** Editbat.fmt (BATCH file scrreen format called by EDITBAT) ******* 

7^7t7^7^:^7^:*!:7^7^7^7k7k:^7k7^7^:^:A:K7*c:^7^^^^7k7k7i:7^7^:^7^7^7^7<c7^x:^7^::V:A:7^^7^7^X7t7^7^:A:7^:Ar^^7‘c:^^:;Ar:^7^7^7kx:Ar7kA7k:Ar:^AA 



0 


2, 


7 


SAY 


0 


3, 


46 


SAY 


0 


3, 


61 


GET 


0 


5, 


23 


SAY 


0 


5, 


40 


GET 


0 


7 , 


23 


SAY 


0 


7, 


40 


GET 


0 


9, 


23 


SAY 


0 


9, 


40 


GET 


0 


11, 


14 


SAY 


0 


11, 


35 


GET 


0 


11, 


50 


SAY 


0 


11, 


60 


GET 


0 


13, 


14 


SAY 


0 


13, 


35 


GET 


0 


13, 


50 


SAY 


0 


13, 


60 


GET 


0 


13, 


69 


SAY 


0 


14, 


35 


SAY 


0 


17, 


7 


SAY 


0 


18, 


7 


SAY 


0 


19, 


13 


SAY 


End 


Abandon 


0 


1, 


5 


TO 



"Edit(change or delete) Batch file" 

"Today " 

BATCH->DATE 
" Stock number :" 

BATCH->SN 
"Voucher number :" 

BATCH- >REQMO 
" Customer Code :" 

BATCH->CI 

"Type of action :" 

BATCH->TYPE 
" Posted :" 

BATCH->POSTED 
" Quantity :" 

BATCH->QTY 
"Unitcost :" 

BATCH->UNITCOST 

II ^11 

"Date : "+Dtoc(BATCH->DATE) 

"(Insert mode) ; Ins (Record) Next 

"(Delete) Character :Del Previous 

"Field: ctrl+Y Record:ctrl+ U (Done/Save) :; 
Esc" 

3, 40 



PgDn" 

PgUp" 



* Eof EDITBAT.fmt * 



@4, 5 TO 15, 70 
@ 16, 5 TO 20, 70 
@ 17, 35 TO 19, 35 



* 



e. EDITCUST 



****** Editmast.fmt (MASTER file screen format called by EDITMAST )***** 

7*C7‘c7‘c:i*r:i*C7*C7^:AA7^T^xA7^'^:^c:TAx7‘cx7‘c7<c7‘c:Ar:i>c:iic7'c5>C7‘c:i>cyc7't7‘f7‘c7‘c7‘c:Ar:i*c7^5‘c7‘c:i*c:ir7*cA 



(? 


2, 


10 


SAY 


"Edit/Change Master file" 


@ 


3, 


47 


SAY 


"Today " 


@ 


3, 


61 


SAY 


DTOC(DATE( ) ) 


@ 


5, 


20 


SAY 


"Stock Numoer :" 


(? 


5, 


36 


GET 


MASTER->SN PICTURE "9999-99 


0 


7, 


14 


SAY 


"Customer code ;" 


0 


7, 


31 


GET 


MASTER- >CI 


0 


7, 


43 


SAY 


"Action Type :" 


0 


7, 


58 


GET 


MASTER->TYPE 


0 


9, 


13 


SAY 


"Request Number :" 


0 


9, 


31 


GET 


MASTER->VN PICTURE "9999!!- 


0 


10, 


31 


GET 


MASTER->REQNO PICTURE "9999 


0 


10, 


50 


SAY 


"Customer ' s" 


0 


12, 


12 


SAY 


"Quantity :" 


0 


12, 


24 


GET 


MASTER->QTY 


0 


13, 


12 


SAY 


" Price :" 


0 


13, 


24 


GET 


MASTER->UNITCOST 


0 


13, 


30 


SAY 


"S Reusable ? :" 


0 


13, 


58 


GET 


MASTER->MISC 


0 


14, 


29 


SAY 


"Date :" 


0 


14, 


36 


GET 


MASTER->DATE 


0 


17, 


7 


SAY 


"(Insert mode) : Ins 


0 


18, 


7 


SAY 


"(Delete) Character :Del 


0 


19, 


13 


SAY 


"Field:ctrl+Y Records ctrl+U 


ctrl+End 


Abandon :Esc" 


0 


1, 


5 


TO 


3, 40 


0 


4, 


5 


TO 15, 70 


0 


16, 


5 


TO 20, 70 


0 


17, 


35 


TO 19, 35 



(Record) Next ; PgDn" 
Previous : PgUp" 
(Done/Save) : ; 



f. EDITASL 






********** Editasl.fmt (ASL screen format called by EDITASL)*********** 



0 


2, 


6 


SAY 


0 


3, 


47 


SAY 


0 


3, 


60 


SAY 


0 


5, 


20 


SAY 


0 


5, 


36 


GET 


0 


8, 


10 


SAY 


0 


8, 


26 


GET 


0 


8, 


38 


SAY 


0 


8, 


60 


GET 


0 


8, 


64 


SAY 


0 


10, 


11 


SAY 


0 


10, 


26 


GET 


0 


10, 


38 


SAY 


0 


10, 


60 


GET 


0 


12, 


10 


SAY 


0 


12, 


34 


GET 


0 


14, 


23 


SAY 


0 


14, 


50 


GET 


0 


17, 


7 


SAY 



"Edit Authorized Storage List file" 

"Today " 

DTOC(DATEO) 

"Stock number :" 

ASL->SN 

"Reorder Point :" 

ASL->ROP 

"Order shipping time :" 

ASL->OST 

"days" 

"Safety Level :" 

ASL->SL 

" Date :" 

ASL->DATE 

"Requisition Objective :" 

ASL->RO 

"Resource control number :" 

ASL->RCN 

"(Insert mode) : Ins (Record) Next : PgDn" 
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18, 


7 


SAY 


M 


(Delete 




19, 


13 


SAY 


M 


Field: 




1, 


5 


TO 


3 


, 40 


(a 


4, 


5 


TO 


15 


, 70 




16, 


5 


TO 


20 


, 70 




17, 


35 


TO 


19 


, 35 



:k 



Character :Del Previous : PgUp" 

Y Record: U (Done/Save) : End Abandon :E 



* Eof EDITASL.fmt * 



g. L'DITPROP 






*** Editprop.fmt (PROPERTY file screen format called by EDITPROP) ****** 

7 ^: 9<: "k -k M 7^ -k -k^ ^ 'k -k -k 7^ "K -k -k -k 'k kkkkkkkkkkkkkkkkkkkkkkkkkkT^kkkkk^kkkkkkkkk^kkkkkk 





2, 


12 




3, 


46 


0 


3, 


61 




5, 


7 




5, 


23 




5, 


45 




5, 


57 




7, 


7 




7, 


23 




9, 


15 




9, 


23 




9, 


30 




9, 


43 




9, 


54 




9, 


62 


@ 


12, 


14 


@ 


12, 


23 




12, 


35 




12, 


49 




12, 


59 




14, 


30 




14, 


49 




14, 


59 


0 


17, 


7 




18, 


7 


0 


19, 


13 


ctrl+End 


0 


1, 


5 


0 


4, 


5 


0 


16, 


5 


0 

A. 


17, 


35 



SAY "Edit property file" 

SAY "Today " 

SAY DTOC(TODAY) 

SAY "Stock Number :" 

GET PROPERTY->SN 
SAY "Serial No :" 

GET PROPERTY->SERIALNO 
SAY "Nomenclature ;" 

GET PROPERTY->NH 
SAY "Unit 

GET PROPERTY->UNIT 
SAY "Essential item? 

GET PROPERTY->ESSENCE 
SAY "Class :" 

GET PROPERTY->CLASS 
SAY "Onhand :" 

GET PROPERTY- >ONHAND 
SAY " Price 
GET PROPERTY->UNITCOST 
SAY 

SAY " Total Value :" 

GET PROPERTY->TVALUE 
SAY "$" 

SAY "(Insert mode) ; Ins (Record) Next ; PgDn" 

SAY "(Delete) Character :Del Previous : PgUp" 

SAY "Field: ctrl+Y Record: ctrl+U (Done/Save) : ; 

Abandon :Esc" 

TO 3 , 40 
TO 15, 70 
TO 20, 70 
TO 19, 35 

* Eof EDITPROP.fmt * 



* 



h. EDITCUST 



****** Editcust.fmt (CUSTOMER file screen called by EDITCUST)********** 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkkkkkkkkkkkkkkkkkkkk 



0 


2, 


9 


SAY 


"Edit or Delete CUSTOMER file" 


0 


3, 


46 


SAY 


"Today " 


0 


3, 


60 


SAY 


TODAY 


0 


5, 


9 


SAY 


"Customer :" 


0 


5, 


20 


GET 


CUSTOMER->CI 


0 


5, 


25 


SAY 


"code Priority :" 


0 


5, 


48 


GET 


CUSTOMER->PRIORITY 


0 


7, 


20 


GET 


CUSTOMER->CDESC 


0 


7, 


51 


SAY 


"Description" 


0 


8, 


20 


GET 


CUSTOMER->ADDRESS FUNCTION "S30"; 


PICTURE " 


XXXXXXXXXXXXXXXXXXXXXXKXXXXKXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXX 


0 


8, 


51 


SAY 


"Address" 


0 


9, 


20 


GET 


CUSTOMER->ZIPCODE 


0 


9, 


51 


SAY 


"Zipcode" 



156 



@11, 9 

@ 11, 23 
@ 12, 23 
@ 12, 36 
@ 13, 23 
0 13, 36 
@ 14, 33 
@ 14, 51 
@17, 7 

@ 18, 7 

@ 19, 13 
ctrl+End 
@ 1, 5 

@4,5 
@ 16, 5 

@ 17, 35 



SAY "Fund allwed 
GET CUSTOMER->FUND 
GET CUSTOHER->EXPEND 
SAY "Expend" 

GET CUSTOMER->FUNDOH 
SAY "On hand" 

SAY "Last edit date 
GET CUSTOMER->DATE 

SAY "(Insert mode) : Ins (Record) Next 

SAY "(Delete) Character :Del Previous 

SAY "Field:ctrl+ Y Record:ctrl+ U (Done/Save) 
Abandon .-Esc" 

TO 3, 40 
TO 15, 70 
TO 20, 70 
TO 19, 35 

* Eof EDITCUST.fmt * 



PgDn" 

PgUp" 



•k 



ANALYSIS 



a. EOQ 



*********************************************************************** 

Hoduls HdlTlG • « • • : EOQ • flTlt '^'^'^'^kk-k'k'k'k-k-kkk'k-k-k'kk'k-k-k'kkkkk'k 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kkkkkk'kkkk-kkk'kk'k-k'kk'k'kikk'k'k'k'k'k'k'k'k'k-k-k-k-k 

Clear 

17 SAY "I N F 0 R M A T I 0 N for A N A L Y S I S" 

12 SAY "You selected stock number :" 

40 SAY PROPERTY->SN 

17 SAY "("+Rtrim(PROPERTY->NM)+" , "+"Unit:"; 
+Rtrim(PR0PERTY->UMIT)+'' , Class : "+PROPERTY->CLASS+" ) " 

@ 8, 18 SAY "Purchasing price(P) : "+Ltrim(str(property->unitcost) ) ; 

+" $/"+Ltrim(PROPERTY->UMIT) 

@10, 21 SAY "Annual Demand(R) : "+Ltrim(str (Rdem) )+" " ; 
+Rtrim(propertY->unit)+"/year" 

@12, 14 SAY "Lead time(OST) in Month 



@ 

@ 

@ 

@ 



2 , 

5, 

5 

6 



+" Month(s)" 



14, 

14, 

15, 

15, 

16, 
17, 
17, 

17, 

18, 
18, 
18, 
21 , 
21 , 
22 , 
22 , 
24, 

1 , 

4, 

20 , 



21 

40 

11 

40 

5 

14 
40 
55 
16 
40 
55 
5 

45 

15 
45 
5 

13 

1 

1 



"+Ltrim( str (mLeadt) ) 
$/order" 



%" 



SAY "Ordering cost(C) : 

GET Orderc pict "9999.99" 

SAY "Holding cost unit per year 
Get Frate pict "99.99" 

SAY "(Select one of these)" 

SAY "Stockout cost(If Known) ; $/unit' 

GET Scost pict "9999.99" 

Say "Select?" get CSC pict "!" 

SAY "Service Level in year ; 

GET Servl pict "99.9999" 

SAY "Select?" get CSL pict "!" 

SAY ""+title+"| Reorder point +Mrop 
SAY "Safety Level Msl 
SAY "Requisition objective :"+ Mro 
SAY "Lead Time : "+Most 

SAY space(50-Len(Ctitle) )+(Ctitle) get check pict 
TO 3, 61 DOUBLE 

TO 19, 74 DOUBLE 



%" 



II I II 



TO 23, 74 



DOUBLE 
* Eof 



EOQ . fmt 
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